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Correction to the NADOL Manual 



Along with the enclosed replacement pages for the NADOL manual, the 
following corrections should be made to your manual: 

Information from Chapter's 1 1 and 12 have been incorporated into Chapter 
10. 

their references should be removed from the table of contents. 

On page 3. 1 , in the last paragraph, the phrase "and then add those two 
results together" should read "and then multiply those two results". 

On page 5.3, the result from the program should print the numbers from 
to 4, not to 5. 

On page 5,4, the program should start with the statement "DEFINE INTEGER 
l,J,K" instead of the other way around. 

On page 5.6, the second program should have "WHILE 1" as its loop control 
statement, since this forces ther condition to always be true. 

On page 8.49A, under syntax, the statement is called "RSYNC" not "WSYNC". 

On page 10.2, the last paragraph should have the following sentence in it: 
"NADOL is shipped to use slot 1 for a printer...". 



=From the Editor's Desics 



COhPUTERappllcatlons, Inc. Introduces N.A.D.O.L,/" our Interpreted language 
for the Apple II Hne of computers. We believe that by using the NADOL 
language, you will be provided with a state-of the art tool for designing 
utility software, and other highly interactive applications. 

Nibbles Away III has been included with the NADOL package as an example of 
the power and versatility of our new language. The Nibbles Away III section 
will be enhanced over time with a Program Look-up Database, powerful 
editing utilities, and sophisticated backup modules. 

Before you begin to explore the features of NADOL, this manual needs to be 
put in order. There is a set of addendums, and chapter 10 which should be 
inserted into the manual. Also, the section divider tabs should be inserted. 
The 'NADOL' tab goes in front of chapter 1, 'NAM I AND OTHER UTILITIES* goes 
in front of chapter 10, 'DISK PROTECTION* goes in front of chapter 13, and 
'APPENDIXES* goes in front of the appendixes. 

Please take a moment to make a backup of your original NADOL diskette. An 
extra label is provided for this purpose. NADOL is not copy protected, so you 
may make as many copies as you wish for your own use only. Please do not 
give away copies of this software. 

For those who wish to keep up with the new utilities being developed in 
NADOL, or for those who want to know the latest 'happenings' regarding copy 
protection, the NIBBLE NEWS'** subscription newsletter service is available. 
NIBBLE NEWS is the COMPUTER:app11cations Inc. newsletter, dedicated to 
Nibbles Away parameters and NADOL programs. This newsletter contains 
Tutorials, helpful hints, and many useful and interesting programs. It is our 
way of bringing you the most recent developments as quickly as possible. If 
you wish to subscribe to Nibble News, please contact COMPUTER:applications, 
Inc. at (919) 846-MI 1. 

1 know that you are anxious to explore all of the inner details of this package, 
and we hope that you have as much fun using NADOL and NAM I as we did in 
making it. 




Randy Ubillos 




Important! 



You should make a backup copy of your NADOL 
master disk NOW. This can be done by using the 
FAST SECTOR COPY' option from the NAIII main 
menu (option *2). After making a backup, put 
your original disk away. A second disk label is 
supplied to be placed on this backup disk. 



Well, here It Is. The long awaited Nibbles Away III, As you have probably 
noticed, NAIII is actually a program written in NADOL'", our new 
interpreted language for the Apple computer. We believe you will find that 
It provides the state-of-the-art tn software backup, and goes well beyond 
in its capabilities for developing highly interactive disk utilities. 

The first step is to arrange your manual. There is a set of addendums, and 
chapter 10 which should be inserted into the manual. Also, the cardboard 
dividers should be inserted. 'NADOL' goes in front of chapter 1, 'NAIII and 
other utilities' goes in front of chapter 10, 'Disk Protection' goes in front 
of chapter 13, and 'Appendixes' goes in front of the appendixes. 

Please take a moment to make a backup of your original disk. An extra 
label is provided for this purpose. NADOL Is not copy protected, so you 
may make as many copies as you wish for your own use only. Please do 
not give away copies of this software. 

If you wish to keep up with "what's happening" with NADOL, current lists 
of parameters, and many useful and interesting programs for NADOL, 
'Nibble News* is available. Nibble News Is the COMPUTERapplications Inc. 
newsletter, dedicated to Nibbles Away (and now NADOL tool). It Is our way 
to bring you the most recent developments as quickly as possible. If you 
are Interested in subscribing to Nibble News, please contact 
COMPUTER:appl1cat1ons, Inc. at (919) 846-141 1. 

I know that you are anxious to explore all of the inner details of this 
package, and we hope that you have as much fun using NADOL and NAIII as 
we did in making it the leader in software backup technology. 



P.S. In case anyone was wondering, this entire manual, pictures and all, 
was done 100% on an Apple Macintosh with an Imagewrlter printer. 
Every page was produced camera ready, with no need for physical 'cut 
and paste' editing! 



DISCLAIMER OF ALL WARRANTY AND LIABILITY 

COMPUTER:app]lcattons Inc, or any dealer distributing 
this product, makes NO WARRANTY, either EXPRESS or 
IMPLIED, with respect to the information provided, or to 
the floppy diskette, its quality, performance, 
merchantability, or fitness for any particular use. It is 
solely the purchaser's responsibility to determine its 
suitability for any particular purpose. 

CWPUTER:applications, Inc. will in no event be held 
liable for direct, indirect, or incidental damages 
resulting from any defect or ommision in the information 
provided, the floppy diskette, or other processes 
including, but not limited to any interruption of service, 
loss of business or anticipatory profit, legal action, or 
other consequential damages. 

THE USER ASSUMES ALL RESPONSIBILITY ARISING FROM 
THE USE OF THIS SOFTWARE! 

COMPUTER:applications, Inc. reserves the right to make 
corrections or improvements to the information 
provided, and to the related software at any time 
without notice. 



COPYRIGHT NOTICE 



This manual and the accompanying software are 
copyrighted. All rights reserved. This document, or the 
accompanying software may not, in whole or in part, be 
copied, photocopied, reproduced, translated or reduced to 
any electronic medium or machine readable form without 
prior consent, in writing, from COMPUTER:applications, 
Inc. 



© 1985 by 

COHPUTERiapplications, Inc. 
12813 Lindley Drive 
Raleigh, NC 27609 
(919)846-1411 
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A HISTORY OF NIBBLES AWAY 

Nibbles Away began back in 1980 as an experiment into the disk protection 
schemes which had begun to come into use. Prior to that time most disks 
were directly copyable, and back-ups were as simple as using the 
Apple-copy program supplied on the master disk. 

The software companies claimed that the protection was to protect their 
interests against software pirates. While no one tries to pretend that 
software pirates do not exist, the fact that legal owners of a program 
need to make back-ups to protect their software investment, is largely 
disregarded by the software companies. 

Most companies would repair a 'blown' disk if the user was willing to part 
with the disk for a week or two while it was shipped around the country 
with their valuable payroll or database information. Obviously this was 
not a reasonable solution. 

Even so, It seemed that as soon as one disk appeared using a protection 
system, many more began to use similar systems until the disks without 
protection were few and far between. 

In 1981 Nibbles Away version AI was announced as a disk backup program 
to allow software users to protect their investment 

The software companies quickly found that the flexibility of the Apple 
disk drive hardware allowed an incredible variety of protection schemes 
to be implemented. To combat these new techniques, in early 1982 
Nibbles Away II was announced. 

Nibbles Away II had a much more flexible disk back-up system, easy to use 
and modify parameters with names instead of numbers. Also included was 
a full set of track and sector editors which allowed the user to view the 
data on a disk directly to determine the type of protection being used. 

But still the software companies pushed forward to more and more 
extensive protection systems, many times contracting companies whose 
only programming service was protecting diskettes. Many times these 
protection systems cost a great deal of money, which resulted in higher 
software costs. Some of the schemes were unreliable, in some cases with 
failure rates as high as 50% for the finished diskettes. 
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with the incredibly diverse selection of protection systems on the market, 
each having a large number of variations within itself, the total number of 
protection systems is staggering and extremely difficult for a single 
program to keep up with. 

Taking all of this into consideration, COiPUTERapplications decided that a 
giant step forward was needed to provided users with a comprehensive 
program capable of keeping up with the ever changing protection systems. 

The concept of NIBBLES AWAY ill was developed to provide the maximum 
possible flexibility. 

At this point one item should be clarified. The menus and prompts that are 
seen on the screen during a normal copy are actually done through a 
program written in NAEX)L, the Nibbles Away Disk Optimized Language. 
This program can be modified by the user at will. This allows NAIII to 
stay current, no matter what developments take place. 

An added benefit is that users can create their own programs under this 
powerful language. A few examples would be programs which can convert 
DOS 3.3 files to Apple CP/M, or one which could display a color disk map of 
the files on a diskette. The possibilities are almost limitless. 

Users should not be scared off by the term 'language'. NADOL is a language 
in the same way that Applesoft is a language. Anyone who can program in 
Applesoft can program in NAIX)L. In many cases it is much easier, 
especially for operations involving diskettes, since many of NADOL's 
functions make handling disk information easy. 
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USING NADOL 

NADOL is an interactive language which can be used in two distinct modes. 
The first is immediate mode, where commands are executed as they are 
typed in. The second is deferred mode, where a series of commands is 
typed in and executed at a later time. 

To become aquainted with NADOL, immediate mode is the best thing to 
start with. In this section we will go through several examples. The way 
to get the most out of this section is to have NADOL up and running on the 
screen and try the examples as they are given. This type of 'hands on' 
training usually gives the best results. 

To enter NADOL itself, choose the NADOL option from the main Nibbles 
Away 111 menu. This will display a period '.', which is the prompt for the 
NADOL immediate mode. 

At this point, try a simple command Type; 

PRINT "HELLO" 

And press the <RETURN> key. The word HELLO will be printed on the 
screen below the statement which was typed in. Numeric expressions 
work in the same manner Type in the following; 

PRIHT 5*6 

This will print 30 on the screen. Most of the commands which are listed in 
chapter 8 can be typed in directly to give immediate results. Some 
procedures require variables to be passed as their parameters. To do this 
the variables must first be defined. As an example, the following 
sequence of commands will read in and display the data from sector 5 on 
track 4; 

DEFINE INTEGER TRACK, SECTOR, COUNT, ERR 

TRflCK«4 

SECTOR-5 

COUNT- 1 

flSECT(RBUFJRflCK,0,SECT0R,C0UNT,6,1,ERR) 
DISPLflV<RBUF,256) 
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The DEFIHE statement creates the four variables which are needed to pass 
to the RSECT routine. Then the track and sector numbers are assigned to 
the variables with the operator. The variable COUNT Is set to 1 since 
only one sector is to be read. The RSECT procedure is called to perform the 
actual read operation. Then the OlSPLRV procedure is called to show the 
data which was just read in. The predefined variable RBUF is a section of 
memory normally used for raw data reads, but it can be used for any other 
purpose as well, fn this case we used it as a temporary storage buffer for 
the data that was read and displayed. 

At any time that NADOL Is waiting for a response (when there is a blinking 
cursor present on the screen), the ctrl-P keystroke may be used to print 
the contents of the screen. The predefined variable PflTSLOT is used to 
control which slot the data will be sent to. It is normally set to ], since 
that is the standard slot for a printer interface carl Any slot from 1 to 7 
may be used if a proper interface card exists in that slot (In writing this 
manual, the screen dumps were embedded in the text by setting PRTSLOT to 
the slot of a serial interface card connected to the word processing 
computer, allowing direct transfers of screen images in to the text seen 
here). The ctrhP command is very useful for saving data for future 
reference. 



Be sure that the output device is ready before using ctrl-P. 

In the example above we saw how integer variables were created. Integer 
variables are the normal type used for most operations. They can contain 
numbers from -32767 to 32768. For some operations it is desirable to use 
byte variables. Byte variables can contain values from to 255. The main 
difference is that integers occupy two bytes of memory, while bytes 
occupy, what else, one byte. 
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There are many Instances where It Is desirable to access many variables 
as a unit. This might be the case where a sector of data Is read In off a 
diskette. Instead of assigning each byte to a separate variable, which 
would make getting to the information very difficult, NADOL provides 
arrays. Arrays are groupings of variables. They are all referred to by the 
same name, with the subscript distinguishing between them. Below Is 
an example of how to create and use an Integer array; 

OEFIHE IHTEGERCIO] HIHE 

niHElOM 

tllHE[4]«5 

PRIHT niHE[03+niHEt4l 

This would print 6, since the two values added together were I and 5. Each 
separate variable Is called an element of the array. The number between 
the brackets, which determines which element is being referred to. Is 
called the subscript. The subscript may be either a number, or it may be 
a variable or expression. See Chapter 3 for more Information on 
expressions. 

At this point It should be noted that not all Apple keyboards can normally 
generate the left bracket. On the Apple //e and //c both brackets are 
present on the keyboard On the Apple ][ and ]{+ the right bracket can be 
entered with the shIft-M key, and within NADOL the left bracket may be 
entered using the shIft-N key. 

When an array Is defined, the highest desired element is specified in the 
OEFIHE statement. If the number 10 Is used, as In the example above, 
subscripts may be In the range through 10, giving 1 1 elements total. 
There is actually no checking performed by NADOL to verify that the 
subscript used with an array Is within the limits of its definition. It is up 
to the user to make sure that the subscript is within the range originally 
defined, or unpredictable results may occur. 

Any variables which are defined take space away from NADOL's free space. 
Both programs and variables use up free space. Care should be taken not to 
allocate too many variables If a large program is to be entered. Many 
times the predefined buffers RBUF and UBUF can be used for temporary data 
storage instead of declaring special buffers for a particular application. 
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All data which Is managed by NADOL is stored In either bytes or Integers, 
or arrays of one or the other Many times it Is desired to store text data In 
a program. NADOL has provisions for handling this built in. Text is stored 
in byte arrays in a special format The text starts at element of the 
array, with each additional character following In sequential locations of 
the array. The element following the end of the text should contain a value 
of zero. This signifies the end of the string to NADOL. 

Normally when an array variable is specified in a PR I HI statement, the 
value of the first element (or whichever one was specified by a subscript) 
is displayed. In order to print the text contained in a byte array, an 
exclamation point should be placed in front of its name in the PRINT 
statement. Take the following example: 

DEFINE BVTE[30] STRING 

STRING[0]-"H" 

STRIHG[l]--r 

STRIHGt2]«0 

PRINT iSTRIHG 

Would print HI on the screen. (The PfiCK procedure, detailed in chapter 8, Is 
the normal way to put text Into byte arrays). This shows how a byte array 
can be used as a string In a program. 



In order to execute programs in deferred mode, they must be typed in with 
the built-in editor. Chapter 4 explains the use of the editor, while chapter 
5 describes programming In the NADOL deferred mode. 
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BUILT-IN MATH 

Mathematical operations make up a large part of what a program is usually 
required to do. NADOL has a large number of built-in math functions to 
allow the programmer a great deal of freedom when writing a program. 

Since NADOL is designed as a utility language, integers are the most 
frequently used numbers. NADOL uses '16-bit* signed integers for all of its 
internal calculations. This results in a range of -32767 to 32768 for all 
numerical values which are handled by NADOL. 

For performing most calculations, the standard mathematical operators 
are provided. Along with these are several logical operators (described 
below) and several comparison operators (also described below). 

When NADOL looks at an expression and begins to evaluate it, there is a set 
of rules which determines which operations are performed first, and 
which are performed last. This is called precedence. Those operators 
with the highest precedence will be evaluated first. The list of available 
operators, from highest to lowest precedence, is as follows: 

« / Multiplication and division 

+ - Addition and subtraction 

<> = <->- AND OR XOR Comparisons and logical operators 

This order of precedence means that the expression: 

S*i*3*4 

Will result in a value of 42. NADOL first evaluates the two 
multlplfcations, since they have the highest precedence- Then the addition 
is performed. Sometimes it will be desirable to overide the order of 
precedence. Take the following exampleL 

If the actual intent of this expression was to add 7 and 3, then add 9 and 6, 
and then '^^{(lose two results together, the result would not be the 
desired value, since NADOL will perform 3^6 first, and then add the 7 and 
the 9. To avoid this, parentheses may be used, as in the following example: 
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The parentheses inform NADOL to evaluate everything Inside the 
parentheses first, and then to use the results In the multlpllcatloa The 
expressions within the parentheses may be any standard expression, and 
may even include nested parentheses. Remember that v/ithin each set of 
parentheses, NADOL follows the same rules of precedence to evaluate what 
It finds. 

The logical operators are AND, OR, and XOR. These provide the logical AND, 
OR, and Excluslve-OR operations, respectively. Each of these operators 
performs their corresponding logical test on each bit of the two sixteen 
bit operands, and returns a sixteen bit result. 

The comparison operators return a 1 or result depending on whether or 
not the condition associated with the operator Is true or false, based on 
the two arguments. These operators are useful when used In conjunction 
with the flow control statements (see chapter 5). 

When entering numbers, NADOL assumes that they are decimal, unless a 
dollar sign ($) Is placed In front of the number, which specifies base 
sixteen, hexadecimal. This means that MO' would be evaluated as a 
decimal ten, while '$10' would be the hexadecimal representation for the 
number sixteen. These two representations may be mixed freely in 
expressions. Internally all values are stored in hexadecimal. Before any 
assignments or comparisons are performed, all operators are converted to 
hexadecimal, so the user need not be concerned about comparing 
hexadecimal and decimal values. 

Many times It is desirable to be able to use the ASCII value of a particular 
character in a comparison or expression, NADOL allows this by placing 
double quotes C) around the desired character. For example, "A" would 
evaluate to 65, which is the hexadecimal equivalent for the letter A. 



Chapter 
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NADOL has a built-in program editor for creating or modifying programs. 
This editor allows the user to scan through a program, insert and delete 
lines or characters, and make changes at any point in the program, It is a 
highly interactive editor with a set of control-key driven commands. 

The editor can handle program lines up to 250 characters in length, and 
supports horizontal (sideways) scrolling to allow these long lines to be 
displayed, no matter which version of the editor is being used 

There are several different versions of the editor included on the NADOL 
master disk. The standard editor is the 40 column version. Versions are 
also Included for the Apple //e, Apple //c, Videx, Sup'r'term and Smarterm 
80 column cards. 

The editor is invoked by typing EDIT from the prompt of NADOL. This wilt 
display any current program and place the cursor at the top of the screen. 
If an 80 column version of the editor is being used, the card will be 
activated at this time. If the 80 column card does not have a built In video 
switch, the user should switch cables whenever the editor is activated. 

If no program is In memory, the cursor will be at the top of the screen 
with [END OF TEXT] displayed. This shows that there are no lines of 
program currently stored. If a program is currently in memory when the 
editor is invoked, it will be displayed on the screen. If It is desired to 
enter a new program, then the "NEW" command should be typed before 
entering the editor. 

O Due to the larger screen area of an 80 column card, the speed of 
the editor is somewhat slower when using one of these versions. 
Some users may wish to stay with the 40 column editor due to 
Its greater speed, and since it can perform horizontal scrolling 
to view programs of any width. 

The commands of the editor, and their descriptions are listed below. The 
six cursor movement keys have been chosen for their physical location on 
the keyboard. 
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The keys 'W'/E', and *R' all perform upward movement, and the keys 'Z'/X' 
and 'C all perform downward movement, each one being the opposite of the 
one above it. The layout of these keys makes moving the cursor very easy. 



w 


E 


R 




s 


D 




z 


X 


C 



t t t 



These kegs rnoue UP 

These keys moue DOIliN 

Page Mouements 
Cursor movements 

Scroll Mouements 



The full list of commands is as follows: 



Keystroke 



Result 



left arrow 
right arrow 
ctrl-A 

ctrl-B 

ctrl-C 
ctrl-D 



Moves the cursor to the left one space at a time. 

Moves the cursor to the right one space at a time. 

Selects Add mode. All subsequent alphanumeric 
keys will be inserted into the current line at the 
cursor position. 

Moves the cursor to the Beginning of the current 
line. 

Page down, described above. 

Deletes the character to the right of the cursor on 
the current line. 



ctri-E 



Cursor up, described above. 
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ctrl-F Restores previous contents of line. Used to undo 

any changes made since the cursor was placed on 
this line. 

ctrl-G Moves the cursor to the last line which was 

executed from NADOL. This Is useful for finding 
the line where an error occurred from within a 
program. 

ctrl-l Tabs to the next tab stop. Tab stops are set every 

2 character positions. 

ctrl-L Inserts a new Line at the current cursor position. 

All subsequent lines are moved down one line. 

ctrl-N Moves to the End of the current line. 

ctrl"Q Quits the editor and returns to NADOL. 

ctrl-R Page up, as described above. 

ctrl-W Scroll up, described above. 

ctrl-X Cursor down, described above, 

ctrl-Y Deletes the line which the cursor currently 

occupies. All subsequent lines are moved up one 
line. 

ctrl-Z Scroll down, described above. 

These commands may be used as many times as desired, in any order. 

Alphanumeric characters are placed at the cursor location as they are 
typed, replacing any characters which may have previously existed under 
the cursor. The cursor moves one position to the right for each character 
which is typed In. 

If the cursor moves onto the END OF TEXT marker, a new line will be 
inserted at that point, allowing program to be entered without issuing the 
ctrl-L command. 
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THE LANGUAGE 



NAOOL is a structured programming language borrowing from the strong 
points of several popular languages such as Pascal, BASIC and C This 
blend gives a language In which It Is easy to write programs, and Is able to 
perform a wide range of tasks with ease. 

Programs are arranged as one statement per line, one executing after 
another Several branching commands are available to control the flow of 
the program based on conditions set up by the user. 

The best way to start Is with an example; so we will pick a simple 
program to print out a number 



The editor shutild be used to type in these programi. See 
ciiapter 4 for a description of lioiii to me the editor. 

Type in the following program: 

PRINT 6*7 

Now exit the editor (ctrl~Q) and type 'RUN*. The following should be 
printed: 



Typing 'RUN' caused NADOL to look at the program which had been entered, 
starting at the first line. In this case, there was only one line; a simple 
print statement. If there had been more lines, NADOL would have 
performed the task specified by each one in the order in which they 
appeared In the program. 




12 
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As NAOOL steps through each line of a user program, jt has several options 
based on what It finds. Each line In a program can take on one of four 
basic types: 

1. Statement 

2. Assignment, 

3. Procedure call. 
4 Flow control 

Statements are lines which specify an action to take place, such as 
initializing a disk, or setting a screen mode. These lines cause an action 
to take place and then execution continues with the next line. An example 
would be TRIHT (5*6)/3\ 

Assignments cause the result of an expression to be assigned to a 
variable. An example would be" hS^ 

Procedure Calls take a certain number of parameters from the line and 
pass them to the specified routine. An example of this would be 
"0!SPLflV(|800,40)^ These lines cause an action to take place and then 
execution continues with the next line. 

Flow Control lines cause a change in the normal flow of execution of 
statements. These lines Include IF/ELSE/ENDIF, WHILE/ENDWHILE and the 
Infamous GOTO. These are the lines which make NA(X)L programable, and 
those which will be discussed in detail in this chapter. 

Flow control statements allow a program to execute a series of commands 
over and over again, or to execute certain sections of commands only when 
predefined conditions arise. 

The WHlLE/ENDWHILE statements cause a series of commands to be 
executed until a condition Is met. The best way to see this Is with an 
example (Be sure to erase any previous program which was entered, by 
typing "NEW"). Key in the program on the next page. 
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DEFINE INTEGER HE 

HE-O 

UHILE nE<5 

PRINT HE 

HE-HE^I 
ENDUHILE 
PRINT "DONE* 

Now try running the program by typing "RUN", The screen should look like 
this: 


I 

2 
3 

4 

DONE 

First, an explanation of some of the statements used is in order (see 
chapter 8 for a full description of all statements). The DEFINE statement 
created a variable called NE to which we can assign values, and which we 
can perform tests on. The assignment nE=0 set the value of HE to zero. 

The UHILE statement creates a loop. Everything between the UHILE and 
ENDUHILE statements is executed until NE<5 is no longer true. Inside the 
loop we simply print HE and then add 1 to the value of HE. 

The best way to understand what happens during a WHILE/ENDWHILE loop is 
to follow the same steps that NAOOL follows when it executes the 
program: 

The DEFINE statement creates a variable, and the following assignment 
sets its value to ^ero. The first time that we reach the UHILE statement, 
HE is zero, so HE is less than 5, and the print and Increment statements are 
executed. The second time, NE Is one, and so on until ME reaches 5, when it 
is no longer less than 5. At this point the loop exits, and the program 
continues at the statement following the ENDUHILE statement, stopping 
after the last line In the program. 
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The section of the program between the WHILE and ENDWHILE lines is 
called the WHILE/ENDWHILE block. Within this block, other 
WHILE/ENDWHILE blocks may exist, This is called nesting. 
WHILE/ENDWHILE blocks may be nested up to 8 levels deep, An example of 
a program which is nested 3 levels deep is shown below: 

DEFINE 4^ INTEGER X^j; K 
l«l 

UHiLE K-3 

J"! 

UHILE J<-2 
K-1 

UHILE K<-8 
PBIHT 
IC-K+1 
EHDUHILE 
PRINT 
J-J*1 
ENDUHILE 
PRINT 
1-1*1 
EHDUHILE 

When run, this program would create the following display on the screen: 

««*««*«* 
«««*«««« 

«»*«*««« 
««««*««« 

This shows how WHILE/ENDWHILE blocks may be nested within each other. 
For additional examples, examine the programs in chapter 7. 
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The IF/ELSE/ENDIF Statements are the next topic. The statements cause a 
series of commands to be executed only if a specific condition is true. An 
example is in order, 

IF HRSLOO 
PRINT -VOU HflUE fl LflHGURGE CARD' 

END IF 

This short program will cause the message specified to be printed only if 
the value of the predefined variable HASLC is greater than zero (See 
chapter 9 for a list of predefined variables). Many times this form of the 
IF/ELSE/ENDIF statement is enough, but there are many times when one 
action should be taken when the specified condition is true, and another 
action should be taken when it is not true. Examine the following addition 
to the program above: 

IF HRSLOO 

PRINT -VOU HRUE R LRH6UR6E CRRD" 
ELSE 

PRINT -THERE IS NO LRNGUR6E CRRD IN THIS COMPUTER* 
END IF 

In this example, we have two messages which can print out, depending on 
whether the condition "HASLDO" is true or false. 

This shows how we can control which parts of a program actually are 
executed, depending on certain conditions. As with WHILE/ENDWHILE 
blocks, IF/ELSE/ENDIF blocks may be nested up to 8 levels deep. 
IF/ELSE/ENDIF and WHILE/ENDWHILE blocks may also be nested within each 
other, in any order, as long as the blocks do not 'cross'. An example of 
blocks which cross would be: 

DEFINE INTEGER RTE.ERT 

flTE-5 

EflT-flTE«7 

UHILE RTE>3 

RTE-RTE+I 

IF RTE>ERT 
flTE-flTE*3 
EHDUHILE 

END IF 



Cdofrter 5: fiASiOL tutorial: 



NADOL Programmer's Reference Manual 



5.6 



In this example, the two control blocks overlap each other, creating a 
program which makes very little sense. In all of the programs shown so 
far, a convention has been set up where the lines inside each block are 
indented by 2 spaces. This makes errors like the one in the program above 
stand out clearly. This convention should be followed in all programs to 
make debugging easier. 

The final type of flow control statement is 60T0. The 60T0 statement has 
a rather rocky past. Many proponents of structured programming have 
decided that it should be banned since, it can lead to "spaghetti bowF 
programs. GOTO is provided in NADOL because there are certain cases 
where a single GOTO can reduce the overall size of a routine substantially. 
It is not Intended to be the sole type of branching used within a program! 
To illustrate it's use, we must first talk about the LABEL statement The 
LABEL statement defines a location which can be branched to using a GOTO, 
The following program gives an example of both of these: 

OEFIHE INTEGER I 
1-1 

LBBEL LOOP 
PRINT I 
1-1*1 

GOTO LOOP 

This program will print a series of numbers starting at 1 and running up 
until the ctrl-C key has been pressed. This program, like most others, 
should be coded with a WHILE/ENDWHILE block to make it more readable. 
WHILE/ENDWHILE blocks which never terminate can be implemented using a 
control expression which is always zero, such as the number 0. This would 
result in the following program: 

DEFINE INTEGER I 
l"l 

UHILEJBT^ 

PRINT I 

l«l*1 
ENDUHILE 

This is easier to understand in a large program, and the GOTO statement 
should be avoided whenever possible to insure readability and ease of 
debugging later on. 
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As we have seen from this section, flow control statements are the 
backbone of NACKDL. A language without the ability to change the order in 
which it steps through a program is little more than a complicated mimic, 
able only to perform a task in a specific order, leading to a single end 
result. Flow control statements, however, allow a program to perform 
different tasks based on decisions, This allows some operations to be 
repeated until a particular task is completed Very sophisticated and 
'intelligent' programs may be devised by making extensive use of the 
conditional facilities of NADOL In all, the flow control statements, 
combined with the large selection of built-in routines within NADOL, make 
up a very powerful environment for almost any type of application. 

This completes our description of the flow control statements of NADOL, 
Chapter 7 provides a number of examples showing how these statements 
are used in actual programs, and how they interact with other statements. 

The NADOL master disk contains the programs in chapter 7 already entered 
into NADOL format The best way to learn what the different statements 
do is to make changes to the programs and view the effect that the 
changes have on the operation of the program (Always be sure to try these 
changes on a BACKUP copy of the NADOL master disk, since some changes 
may not be as harmless as they seem). 
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PRQCBDU R BS m aF UNC TIO Ng 

NADOL provides two different ways to create subroutines in a program. 
Which of the two is used for a particular application will depend on the 
situation involved Procedures perform a set of instructions and return 
to the main program. Functions pass back a value to the main program. 

The best way to illustrate how this works is with an example. The 
following program contains a short procedure: 

DEFIHE INTEGER J 

PROCEDURE TtnESTUO 

J«J«2 
ENOPROC 

J«8 

PRINT J 
TINESTUO 
PRINT J 

If this program is run, the numbers 8 and 16 will be printed. This is what 
happens: 

The DEFIHE statement creates the variable J. 

A procedure is defined as the lines between the the PROCEDURE and EHDPROC 
statements. 

J is set to 8 and printed 

The statement TINESTUO in the main program transfers control to the 

procedure with that name. 

TINESTUO then multiplies J by 2 and exits. 

J is then printed again, with its new value of 16 (8^2). 

The procedure TINESTUO might be useful if J were to be multiplied by 2 
many times during a program. It would be more useful, In most cases, if 
the procedure could multiply any number by 2. This is where parameter 
passing comes into play. 

When a procedure or function is called. It can be followed by an open 
parentheses, a list of variables or expressions, and a close parentheses. 
The v^lables or values within the parentheses are known as parameters. 
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These parameters then become available to the procedure or function. The 
difference is that different parameters can be passed from different 
points within a program. 

Up to 8 parameters may be passed to a procedure or function at any one 
time. From within the procedure, they are referenced as %1 through %8. 
The percent sign signifies that a passed parameter is being referenced. 

Another example is in order. Let's make a new program with a more 
complicated procedure which will set the third passed parameter to or 
1, depending on whether the first two parameters are equal or not. 

DEFINE INTEGER fl,B,C,J 

PROCEDURE COnPRRE 
IF ti « %2 

%3 « 1 
ELSE 

13 » 
END IF 
ENDPROC 

C0nPflflE(l,2,J) 
PRINT J 

COHPRRE (4,2+2,J) 
PRINT J 

In this case, and then 1 would be printed. The procedure is defined to 
check the values of the first two passed parameters, %l and %2. If they 
are equal, as they are in the second case, the the third passed parameter, 
%3, is set to a one. If they are not equal, as in the first case, %3 is set to 
0. These are the two values displayed when this example is run. 

Note here that the third passed parameter was a variable name, and that 
modifying the third parameter from inside the procedure modified the 
value of J in the main program. In this way, a procedure can pass 
information back to the routine which called it. 

Be sure to specify a variable name for any parameter in which information 
is going to be returned from a procedure. 
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If more than one procedure is defined, one procedure can call another, up to 
eleven levels. 

A procedure may pass its parameters to another procedure, in any position 
in the parameter list. The called procedure will then reference the 
parameter based on the position in fts parameter list. Any changes made 
to the parameter will affect the parameter In the first subroutine, as well 
as the passed variable in the main program. 

Note that white procedures and functions may occur at any point within a 
program. It is a good Idea to place them at the beginning of the program. 



Functions operate in much the same way as procedures, except they act as 
expressions rather than statements. Take the following example: 

DEFIHE INTEGER J 

FUNCTION OURS 

«1 « 11 + 1 

RESULT- %\ * %\ 
EHOFUNC 

PRINT 0URS{7) 
J « 0URS(6} 
PRINT J 

As shown In this example, a function Is used on the right hand side of an 
equate, and returns a value. 

The RESULT- statement defines the value which will be passed back to the 
calling program. Passed parameters are handled in exactly the same way 
as for procedures. 

Functions are very useful for subroutines which generate a single value. If 
more than one value Is generated by the subroutine, a procedure may be a 
better way to perform the task, using the parameter system to 
multiple values to the calling program. 
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The difference between procedures and functions may not be immediately 
apparent. An analogy would be to compare procedures/functions to 
messengers. Each one can carry up to eight packages, or parameters, In 
their pack when they are sent out During their travels, the items In their 
packs may be modified These modifications are retained when the 
messenger returns. The only difference Is that a function also brings back 
an extra value. This analogy is illustrated In figure one below. 



Procedures Fonctgons 




Procedures return the same number of Functions have the sarne rules for 

parameters that they take with them, parameters, but also return a 

although the values may have been result to the caller, 
modified. 



Figure 1 

Another concept which Is easier to understand with this same analogy is 
parameters being passed to several levels of procedures/functions. At 
each level, the parameter may be refered to as a different parameter 
number, depending on where it was encountered in the parameter list. All 
changes, at all levels, are retained and returned to the main program. 
Figure two shows how the same parameter may be refered to with 
different numbers at each level 
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Values passed to a procedure 
or function may be passed 
along to other procedures or 
functions. Any changes made 
to these parameters, at any 
stage, will be returned back 
all the way to the original 
caller. 



Figure 2 



These examples show just how versatile procedures and functions are. It 
Is Important that the user understand these two statements fully to obtain 
the most from the NADOL language. 
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The examples shown have dealt with the passed parameters being Integers. 
This is the assumed condition for a passed parameter unless otherwise 
specified. If the %n Is followed by a '8', the parameter will be referenced 
as though it was declared as a byte variable. In either case, a subscript 
may be added to the variable if the passed parameter from the main 
program is an array variable. The subscript specifies the element within 
the array to use. If no subscript is used with an array variable, the first 
element will be used. 



8^ No type checking is done on this mechanism, so care should be 
taken to make sure that passed variables match the way that 
they are used In a procedure or function, unless some other 
effect Is desired. 

Procedures and functions are a much more powerful type of subroutine 
mechanism than BASIC'S 60SUB system. Since parameters may be passed, 
subroutines may operate on a variety of variables and parameters without 
having to be dedicated to just one specific variable or parameter. 

For those familiar with Pascal or C, this parameter system will seem 
familiar, since those languages operate In much the same fashion. 
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This chapter describes each of the example programs supplied with NADOL 
in detail. Following the flow of each program is an excellent way for the 
user to become more familiar with NADOL. We recomend that you 
experiment with the programs supplied. Try various changes and view 
their effects. It is a good idea to first make a copy of your master disk 
before saving any changes that you may make. See the prologue to the 
NADOL manual for instructions on duplicating your original diskette. 

In order to demonstrate the flexibility of NADOL, the first example will 
have nothing at all to do with diskettes. It is an entertainment program, 
of sorts, which will play the familiar game of brick-out. As simple a task 
as this may sound, most of the flow control statements, and a great 
number of the built in proceduresr^rte^used at one point or another in this 
program, making it an ideal example. 

The comments to the right of the listing are no present in the actual 
program on your diskette. They are provided as a running commentary of 
the operations being performed at each step in the program. 

i LORES BRICK-OUT GflflE 



DEFINE INTEGER 

DEFINE INTEGER 

DEFINE INTEGER 

DEFINE INTEGER 

DEFINE INTEGER 

DEFINE INTEGER 



CURREHTH;CUflREHTV 

SIDECOL,PDLCOL,BflLLCOL 

DELTflX,DELTflV,PflDDLE 

OLDPDL;OLDX,OLDV,SCRNURL 

HIT;OLDSC0RE,SCORE,GRnE 

OURV,OURX,KEV 



Define ail of the variables 
which will be used during 
the program. 
It is a good idea to use 
longer names which make 
sense to the user. 



SIDEC0L->4 

PDLCOL-5 

BflLLC0L«13 



Set the color of the border. 
The color of the 'paddle'. 
The color of the 'ball'. 



PROCEDURE DRflULINE 
OURV-1 

UHILE 0URVO9 
C0L0R-(0URV/2 HOD 2)+1 
ULINE()l!1,0URV,0URV+2) 
0URV«0URV+2 

EHDUHILE 
EHDPROC 



This procedure draws a 
line of colored dots. 
Start at row 1. 
Continue to the bottom. 
Set the color of the dot. 
Draw a two block line. 
Move down 2 for the next 
block, and loop until done. 
End this procedure. 
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PROCEDURE ORRUSCRH 
LORES 
OURX-20 
UHILE 0URH<35 
DRRULIHE(OURH) 
0UflX-OURX^2 
ENOUHILE 
COLOR-SIDECOL 
HLIHE(0,0,39) 
ULINE(39,0,39) 
HLINE(0,39,39) 
ULINE(0,0,39) 

EHDPROC 



GflflE-l 
UHILE 1 
IF 6RI1E 
HOHE 

ORRUSCRH 
BEEP(200,40) 
CURRENTX-15 
CURREHTV-11 
DELTflX— 1 
DELTflV-0 
OLDPOL-1 
HIT-1 
OLDX-4 
OLDV-4 
SCORE-0 
OLDSCORE-1 
GRHE-O 
END IF 



This procedure draws the 
game board, using the 
DRAWLINE procedure. 
Set LORES graphics mode. 
Start at column 20. 
Draw until column 35. 
Draw the current line. 
Step by 2. 

Loop back until all done. 
Set the new color. 

Draw the box around the 
playing field. 

End this procedure. 

Now that all of the 
variables and procedures 
have been defined, we 
begin the main program. 
Causes a loop forever. 
If a new game is starting... 
Clear the screen. 
Draw the playing field. 
Notify the user via a beep. 

Set the starting conditions. 
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IF SCOREOOLOSCORE 

G0T0XV(4,21) 

PRINT "SCORE-"; SCORE 

OLDSCORE-SCORE 
END IF 

Pfl00LE-PDL(0)/7+l 

IF PflDDLE>33 
PRDDLE-33 
END IF 



IF (PRDDLEOOLDPDL) OR (HIToO) 
COLOR-0 

ULINE(1,0LDPDL,0LDPDL+5} 
OLDPDL-PRDOLE 
COLOR-PDLCOL 
ULINEd^PRDDLE.PRDDLE-'S) 
HIT-0 
END IF 

CURRENTX-CURREHTX-'DELTRX 
CURRENTV-CURRENTV+DELTflV 

IF CURflEHTV<1 
CURRENTV-1 
END IF 

IF CURRENTV>38 
CURRENTV-38 
END IF 

IF CURRENTX<1 
CURREHTX-f 
END IF 

IF CURREHTX>38 
CURREHTX-38 
END IF 



If the score has changed... 
Print the new score. 

Read the game controller. 

If the value is too large 
fix our needs, chop it back 
down to size. 

If the paddle has moved, 
the ball hit the paddle... 

Erase the old paddle. 
Remember the new value. 

Draw the new paddle. 
Gear the hit' flag. 



Move the ball in the X and 
Y directions. 

If Y is too small... 

Put it back on the screen. 

If Y is too large... 

Put it back on the so-een. 

If X is too small... 

Put it back on the screen. 

If X is too large... 

Put it back on the screen. 
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SCHHURL-LSCRH (CUflREHTH, CURREHTV ) 


Read color under the ball. 


COLOR-0 




PLOT(OLDX,OLDV) 


Erase the old ball position. 


COLOR-BflLLCOL 




PLOKCURRENTX, CURREHTV) 


Plot the new ball position. 


IF 0LD««1 


If ball was in column 1 ... 


HIT'«1 


Then we may have hit the 


EHOIF 


paddle. 


OLOX-CURREHTH 


Remember the new 


OLOV-CURREHTV 


ball position. 


IF CURRENTX-1 


If ball is in column 1... 


IF (CURREHTV<PRODLE) OR (CURREHTV>PflDDLE+4) OR (SCORE-152) 


BEEP(100,50) 


Game may be over. 


G0T0XV(20,21) 




IF SC0RE<5 


Print out the final score 


PRINT •'UHCOORDINRTEO" 


and give the user a 


ELSE 


rating of his/her 


IF SC0RE<20 


performance based on 


PRINT "TflV HRROERI- 


that score. 



ELSE 

IF SC0RE<50 

PRINT "NOT BAD..." 
ELSE 

IF SC0RE<100 

PRINT "GETTING BETTER" 
ELSE 

IF SC0RE<152 

PRINT "RBOUE RUERRGE" 
ELSE 

PRINT "EXCELLENT!" 
END IF 
EHOIF 
END IF 
EHOIF 
EHOIF 
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G0T0KV(2,23) 

PRINT "PRESS flNV KEV TO PLRV flGflIN 
KEV-REflOd) 
6RI1E-1 
ELSE 
BEEP(1?0,2) 
DELTflX-OELTflX 
DELTflV-CURREHTV-PflDOLE-3 
IF DELTflV>='0 

DELTRV-DELTflV+1 
END IF 
END IF 
END IF 



Wait for a key to be pressed. 



Then start over again. 
The ball was hit correctly. 
Make a noise. 
Reverse the X direction. 
Set the new Y speed. 



IF (SCRHUflL-1) OR (SCRHUflL-2) 
COLOR-0 



If we hit a block. 
Erase all of it. 



ULIHE(CURHENTX, (CURREHTV-1 )/2*2+1 , (CURREHTV-1 )/2*2+2) 



SC0RE-8C0RE+1 
BEEP(250,2) 
DELTflX— DELTflX 

ELSE 

IF (CURREHTX-38) AND (DELTflX-1) 

BEEP(70,2) 

DELTflX-DELTRX 
EHDIF 
END IF 



Give the user a point. 

Make a noise. 

Reverse direction. 

Otherwise, if ball is moving 

forward and at back... 

Make a noise. 

Head back to the user. 



IF (CURREHTV-1) OR (CURREHTV-38) 

BEEP(70,2) 

OELTRV-DELTflV 
EHDIF 



If at upper or lower edge.. 

Make a noise. 

Go the other direction. 



EHDUHILE 



Always loop back for more. 



Some possible ideas for instructional changes that the user could make 
would be: 

1 ) Multiple balls per game. 

2) Two player game (Think about using two element arrays). 

3) Multiple skill levels. 

The possibilities are almost limitless! 
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Our second example is a color disk mapper, it will display the Volume 
Table Of Contents (VTOC) for a DOS 3,3 diskette in color on the screen. 
Then it proceeds to display the location of all of the sectors used by each 
file on the disk in different colors. This program Is useful and educational 
because it shows how easily NADOL can be applied to a real world 
application. 

DEF I HE I NTE6ER TRACK, SECTOR, COUNT Define all variables. 

DEFINE INTEGER EflR,V,TEf1P,LOC,POS,C0L 

DEFINE INTEGER OTRRCiC, DSECTOfl, TTRflCK JSECTOR 

DEFINE BVTE[2] COLORS 

DEFINE BVTE[40] NRNE 

DEFINE BVTEE255] UBUFF JBUFF,CBUFF 

LORES Set LORES graphics. 

COLORSCH- 10 Set the two colors used 

C0L0RSt2]- 15 to display the VTOC. 

SETF0RI1RT(0,flDDR16,DflTfl16, IHT16) Use DOS 3.3 format/interlv. 

TRflCK-$1 1 VTOC is on track $11, 

SECTOR-SO sector 0. 

C0UNT"1 We're reading one sector. 

RSECT(UBUFFJRRCi(,0, SECTOR, COUNT, 6, 1 ,ERR} Read in the sector 
TRRCK-0 Now start a;t track 0. 

UN I LE TRRCK<-31 Loop until track 34. 

TEI1P-UBUFF[$39+TRflCK*4]*UBUFF[$38*TRflCK*43*256 Get track bits. 
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IF (TEHP-O) OR (TEHP-IFFFF) 
IF TEHP-O 

COLOR-COL0RS[1] 
ELSE 

C0L0R-C0L0RS[2] 
END IF 

HLINE(0JRRCKJ5) 
ELSE 
V-0 

UHILE V<16 
IF TEUP nOD 2 

C0L0R-C0L0RS[2] 
ELSE 

COL0R-C0L0RSE1] 
END IF 

TEIlP-TEnP/2 
PLOT(V,TRRCK) 
V-V+1 
EHDUHILE 
END IF 

TRflCK-TRflCK+1 
EHDUHILE 



COL-1 
COLOR-COL 
DTRflCK-$lt 
DSECTOR-$F 

UHILE (DTRflCKOO) AND (DSECTORoO) 
COUHT-1 

RSECT(CBUFF,DTRRCK,0,DSECT0R,C0UHT,6,1, 
POS-11 

UHILE (CBUFF[POS]<>0) RHD (P0S<255) 
IF CBUFF[P0S3<>$FF 
TTRflCK-CBUFF[P083 
TSECTOR-CBUFFEPOS+11 
COPV ( CBUFF [ P08+3 ] , HRHE , 25 ) 
PRIHT IHRI1E 
COUHT-1 

RSECT ( TBUFF , TTRflCIC , , TSECTOR , COUNT , 



Is it all used or unused? 
if all used... 
Use colcMT 1. 
Otherwise... 
Use color 2 

Draw a line for whole track. 
We have to plot each one... 

Loop for all sectors. 
If the sector is free... 
Use color 2. 
Otherwise... 
Use color 1. 

Get rid of that bit. 

Plot the dot. 

Move to the next dot. 



Move to the next track. 

Now the VTOC is plotted, 
so we move on to plotting 
the file locations. 
Start with color 1 . 
Make it the current color. 
Directory starts on track $1 1 
sector $F. 

Run until the links are 0... 

ERR) Read the sector. 

Start at position 11. 
Until all names used up... 
If not a deleted file... 
Get track for TSL. 
Get sector for TSL. 
Move the name. 
Print the name. 

6 J , ERR ) Read the sector. 
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L0C«1 2 Start at position 1 2. 

PL0T(TSECT0R+20, TTRflCK) Mark the TSL sector. 

UHILE (L0C<255) AND ((TBUFF[LOC]<>0) OR (TBUFF[L0C+1]<>0)) 

PL0T(TBUFF[L0C+n*20;TBUFF[L0C]) Plot each sector of the file. 
L0C«L0C+2 



EHDUHILE 

C0L-(C0L+1) nOD 15 
IF COL-0 

C0L«1 
END IF 
COLOR-COL 
END IF 

P0S"P0S+$23 
EHDUHILE 
DTRRCK"CBUFF[1] 
DSECT0R-CBUFFE2] 
EHDUHILE 



Move to the next a>lor. 
Skip color 0, since black 
doesn't show up. 

Set new color. 

Move to next name. 

Locate next track/sector 
for rest of catalog. 



This program shows how a very small program can perform complex tasks 
involving the disk drivce with very little effort This program shows how 
a directory can be followed to look at the information for each and every 
file on the disk. In this case the information was displayed graphically on 
the screen. But it could Just as easily have been used to edit each program 
and the way that each was arranged on the diskette. 

Some enhancements which could be added to this program are; 

1 ) Ask the user to Insert a disk before starting. 

2) Use HIRES graphics for the display. 

3) Automatically mark tracks $0-$2 and $11 as used. 

Another source of programs to examine are the programs which make up 
Nibbles Away III and its associated utilities. Each of these may be loaded 
into the editor and viewed just like any other program. 
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The following chapter describes all of the built-in functions, 
procedures and statements in NADOL. Many examples are provided to make 
the function of each clearer. In order to avoid confusion, the following 
layout is used for each description: 

NAME Tape 



Purpose: A short description of the statement's function. 

Syntax: The syntax for using the statement goes here. 
Braces ( ) are used to identify optional fields. 

Remarks: A description of any parameters, and any additional helpful 
information about the statement. 



Any parameters enclosed in double triangles ^» MUST be names 
of variables when the statement is used. 

Example: This section provides a view of the actual usage of the 
statement and what its effect is. 



Appendix XX provides a quiclc-reference to all of the statements 
described In the chapter. 
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AUXMOVE 



8.2 
Procedure 



Purpose: Move data to or from the auxiliary memory in an Apple //e or 
and Apple lie. 

Syntax: AUXM0VE(apple®addr.aux«addr4ength,difectiofi) 

Remarks: «apple®addr» The name of the variable which specifies 

the starting address in the apple for the 
move. 

aux®addr A number in the range $0~$B7FF. This is the 

starting address in auxiliary memory for the 
move. 

length The number of bytes to move to or from 

auxiliary memory. 

direction Specifies whether data should be 

transferred to or from auxiliary memory: 
0= From auxiliary memory 
!= To auxiliary memory 

This procedure can make use of up to 46k of the available 
auxiliary memory. 
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BEEP Procedure 



Purpose: Sounds a tone from the built-in speaker. 
Syntax: BEEP(tone,time) 

Remarks: tone This Is a number from to 255 which 

determines the frequency of the sound Zero Is 
the lowest frequency, 255 Is the highest. 

time This Is a number from to 255 which 

determines the duration of the tone. Zero is the 
shortest, 255 Is the longest. 



Example: The following program: 

DEFINE INTEGER I 
l» 50 

UHILE l<»100 

BEEP(I,30) 

l»l+IO 
ENDUHILE 

Will cause 6 tones to be produced, each one higher in pitch than 
the last. 
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CALL 



8.4 
PHoceouHe 



Purpose: Executes a machine language subroutine. 

Syntax: CALL(address,accumulate,2®register.y®register,stalus) 

Remarks: «addre8s» The name of the variable which specifies the 

address of the subroutine to be executed. 



«a^umulator» The name of the variable containing the value 
to be passed in the accumulator. On exit the 
accumulator value will be returned here. 



«x®register» The name of the variable containing the value 
to be passed to the X register. 

«y®register» The name of the variable containing the value 
to be passed to the Y register. 

«status» The name of the variable containing the value 
to be passed to the status register. 



The routine being called should end with an RTS instruction. 
Zero page locations $0 through $ IF are available for use by the 
routine. Any other memory should be used with care. 



Example: The following program: 

DEFINE INTEGER flCC,X,V,STftT 

CftLL(HEHORV[$Fai E] , flCC,X,V, STflT) 

PRINT V 



Would call the monitor paddle read routine at $FB1E. This 
routine returns the paddle value in the Y register which would 
be placed In the variable Y. Printing Y prints the paddle value. 

Note that even though no values are passed to the accumulator 
or the status register, variables must still be used for these 
parameters. 
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CATALOG STFrreneNT 



Purpose: Displays a list of all files on a data diskette, and the amount of 
free space on that diskette. 

Syntax: CATALCXJ 

Remarks: The WORia)RIVB command can be used to select the slot and 
drive which will be used by this command 

CLEAR STFrreneNT 

Purpose: Clears all variables, 
Syntax: aBAR 

Remarks: This statement also clears all user defined procedures and 
functions, so if it Is used from within a program, all user 
defined procedures and functions will become inaccessible. 

CLREOL STHTeneNT 

Purpose: Clears all text to the right of the current cursor location. 
Syntax: aRBOL 

Remarks: This command does not move the cursor. 
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CLREOP STRTEMENT 



Purpose: Clears all text to the right and below the current cursor 
location. 

Syntax: CLREOP 

Remarks: This command does not move the cursor. 
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COLOR= smrenENT 



Purpose: Sets the color used for low resolution graphics. 



Syntax: COLOR» expression 



Remarks: The value of expression may be from to 15, corresponding to 
the following colors: 

0= Black 8= Brown 

1 Magenta 9= Orange 

2= Dark Blue 10== Gray 2 

3« Purple 11= Pink 

4= Dark Green 1 2= Light Green 

5= Gray 1 13« Yellow 

6^ Medium Blue 1 4= Aquamarine 

7- Light Blue 15- White 
If expression Is greater than 15 then expression mod 16 Is used 
for the color value. 



Example: The following program: 



DEFINE INTEGER DtR,POS,COL 

DIR«1 

LORES 

UHILE 1 

COLOR-COL 

HLtNE(0,P0S,39) 

ULIHE(P0S,0,39) 

C0L"(C0L+1) flOO 16 

POS-POS+DIR 

IF (POS»0) OR (P0S»39) 
OIR--OIR 

END IF 
ENOUHtLE 



Would draw a series of horizontal and vertical bars back and 
forth on the screen until ctrl-c Is pressed to halt the program. 

Note the use of the UHILE 1 statement to create a loop which 
will never terminate, giving a continuously running program. 
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CONVERT PHOCEDURe 

Purpose: Converts a byte array containing ASCII text Into an array of 
hexadecimal or decimal values. 

Syntax: CON VERT(source,destination.type,siZ0,count 1 .count2 ) 

Remarks: 4;source> The name of the byte array containing the ASCII 

text to be scanned. The text must be 
terminated by a zero value. 

^destination:^ The name of the array where the converted data 
will be placed. 

type Determines whether scanning should take place 

in decimal or hexadecimal: 

0= Hexadecimal 1 = Decimal 

size Determines if the values placed in dest should 

be bytes or integers: 

0- Integers 1= Bytes 

4:countl» The name of the variable where the number of 
characters scanned source will be returned. 

«count2» The name of the variable where the number of 
values placed into dest will be returned. 

This procedure can be used to convert a string entered by a user 
into a data array which Is more readily usable by the other 
built-in functions. 
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Example: The following program: 

DEFINE BVTE[30] STRIHG.flRRflV 

DEFINE INTEGER C1,C2 

PflCC STRING UITH "D5 flfl 96' 

CONgERT(STRIHG,flRRRV,0, t ,C1 ,C2) 

0ISPLflV(RRRRV,C2) 

Would print: 

D5 RR 96 

Showing that the text string had been converted to hexadecimal 
values In RRRRV which are usable by NADOL. 
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COPY 



8.10 
Procedure 



Purpose: Copies a block of data from one location to another. 
Syntax: COPY(source,destmation,leiigth) 

Remarks: «source> The name of the variable from which the data 

should be copied 

«destmation> The name of the variable where the copied data 
will be placed. 

length The number of bytes to be copied. 

This procedure can copy data between any two locations in the 
machine's memory, whether they are within the same variable 
or not. 

Example: The following program: 

DEFINE BVTE[30] HIHE^VOURS 

PACK niNE UITH "THIS IS HV STRING" 

C0PV{niNE[1t],V0URS,6) 

PRINT IVOURS 

Would print: 

STRING 

Showing that the six bytes (5 characters plus the terminating 
zero for a string) starting at position 1 1 in NINE were copied to 
VOURS at its start 
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Purpose: Allocates space for one or more variables. 

Syntax: (DEFINE) type Cfnl) name {,aame3 

Remarks: type The type of variable being defined, either BYTE or 

INTEGER. 

«name> The name of the variable. It can be up to 8 
characters in length. 

The optional subscript (In!) defines the number of elements to 
be set aside for this variable. The number specified will be the 
highest element set aside, including element zero, giving tt+ 1 
elements total. If the subscript is left off, I element Is set 
aside, and array operations may not be performed on the 
variable. 

A variable of the specified type will be created for each of the 
names listed, and then all of Its elements are set to zero. 

When running a program, NACK3L scans the entire program first 
to find all of the DEFINE statements. This means that DEFINE 
statements may be anywhere in a program, before or after they 
are referenced. 

Example: The following statement: 

DEFINE IHTE6ERC8] H I HE, ^ IS, HERS 

Would create three 9 element (0-3) Integer arrays, one named 
HI HE, one named HIS and one named HERS. 

The statement: 

BVTE SINGLE 

Would create a variable named SfHGLE which would consists of 
one element of one byte. 
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DEL AY strtement 



Purpose: Pauses for a specific amount of time. 
Syntax: DELAYCexpression) 

Remarks: expression The number of milliseconds to pause. 

Example: The statement: 
0ELflV(40«500) 

Would delay 20000 milliseconds, which is 20 seconds. 



DELETE ConnRNO 



Purpose: Removes a file from the current work disk. 
Syntax: DELETE filename 

Remarks: filename Either a name of up to twelve characters enclosed 
in quotes or the name of a variable which is a byte 
array containing a file name. 

This procedure will remove a file and reclaim the space used by 
it on the current diskette. Care should be taken with this 
command since once a file Is deleted, It cannot be recovered. 
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DISASM 



8.13 
Sthtement 



Purpose: Displays a disassembled listing of machine code. 
Syntax: DISASM(8tart.label.lines»offsel) 
Remarks: «start> 



The name of the variable which defines the first 
location to be disassembled. 



label The value which will be shown at the left edge of 
the disassembly and used for the display of 
relative addresses. 

lines The number of lines to display. 

«<rffset> The name of the variable where the offset of the 
next Instruction from the start of the current 
disassembly will be placed. This Is used to 
determine the next location to disassemble. 



On an Apple //c all of the extra instructions of the 65C02 
microprocessor will be correctly displayed. 



Example: The following statements: 

DEFINE INTEGER LOC, OFFSET 
L0C"$F800 

1 sflsn(nEnoRV[LOC] , loc, t o, offset) 
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Would display the following: 



F800- 


4R 


LSR 




F801- 


08 


PHP 




F802- 


20 17 F8 


JSR 


$F817 


F805- 


28 


PLP 




F806- 


fl9 OF 


LOR 


«$0F 


F808- 


90 02 


BCC 


$F80C 


F80R- 


69 EO 


ROC 


8$E0 


F80C- 


85 2E 


STR 


$2E 


F80E- 


Bt 26 


LOR 


($26), V 


F810- 


15 30 


EOR 


$30 



Then the statements: 



LOC-LOC+OFFSET 

DISflSn(nEnORV[LOC],LOCJO,OFFSET) 

Would display the next 10 instructions, which would be: 



F812- 


25 2E 


RHO 


$2E 


F8H- 


51 26 


EOR 


($26), V 


F8I6- 


91 26 


STR 


($26), V 


F818- 


60 


RTS 




F819- 


20 00 F8 


JSR 


$F800 


F81C- 


C4 2C 


CPV 


$2C 


F81E- 


80 11 


BCS 


$F831 


F820- 


C8 


IHV 




F821- 


20 OE F8 


JSR 


$F80E 


F821- 


90 F6 


BCC 


$F81C 



This shows how ctffset can be used to display multiple sections 
of sequential code. 
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DISPLAY Procedure 



Purpose: 


Displays a block of data in hexadecimal 


Syntax: 


DISPLAY(start,len8th) 


Remarks: 


4:start» The name of the variable which defines the first 




location to be displayed 




l6ftfith The number of bvt&s to dl^olav 




The bvtes will he di<^Dla\/ed with a A dinit Ishel in nroun*? nf tfi 

1 1 i./¥t.c9 Will ui tavcu wiLit o ^ uiut^ lauu i j ii i mi wvi|>/o Ut i\j 




bytes per line. Pressing the SPACE bar will pause the listing, 




and rtrl-C will stoo the I1<?t1nn 

Clf «\J VI 1 V»< Vw III ^ \tl 1^ 1 1 O L 1 1 IM* 


Example: 


The statement: 




DISPLflV(RBUF,2S6) 




Would show the first 256 bytes of RBUF on the screen. 


EDIT 


ConnRND 


Purpose: 


Invokes the built-in program editor. 


Syntax: 


EDIT 


Remarks: 


See chapter 4 for full Instructions. 
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FILL 



8. 16 
Procedure 



Purpose: Fills a section of memory with a value. 
Syntax: FILL(start.length,value) 

Remarks: €sim% The name of the variable which determines the 
start of the area to be filled. 

length The number of dytes to fill. 

value The value from to 255 to fill with. 

Example: The statement: 

FILL(RBUF[200]J00,$05) 

Would place the value $05 in 100 bytes of RBUF starting with 
the 200th element of RBUF. 
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FIND Procedure 



Purpose: Finds a specified pattern with the ability to ignore bit 7 and 
perform wildcard matching. 

Syntax: FINEKstart,le!igthUpattern.leagtb2Jtfla8,wild«nag.offset) 

Remarks: <c8tart» The name of the variable which determines the 
start of the area to search through. 

length! The number of bytes to search. 

«pattern» The name of the variable containing the pattern to 
search for 

The length of the pattern, fn bytes. 

Determines whether bit 7(the most significant bit) 
will be used in the comparison. 
0- Bit 7 is used 1 ^ Bit 7 is ignored 

Determines whether wild cards will be used during 
the search. A'zero' value disables wildcards, A 
'one' value enables wild cards, causing any zero 
values in pallern to match any value in the range 
being checked. 

The name of the variable where the offset of the 
matched pattern will be returned If no match is 
found, -1 will be returned. 

FINDS using either 'bit 7 ignore' or 'wild cards* take longer to 
execute than those without. 



Iength2 
7«flag 

wild^fiag 
4;offs€t» 
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Example: The following program: 

BVTE[50] VOUR 
BVTEtei SPOT 
INTEGER POS 

PRCK VOUR UITH 'HERE UE GO R6RIN TO THE STORE' 
PflCiC SPOT UITH 'RGfllH- 

FIHD{V0UR,LEHGTH(VOUR),SPOT,LENGTH(SPOT),0,0,P0S) 
PRINT POS 

Would print the number 1 1, since the word "again" was found at 
the eleventh position in VOUR. 



FLASH STRTeneNT 



Purpose: Sets flash mode for printed characters. 
Syntax: FLASH 

Example: The following program segment: 
NORNRL 

PRINT "HELLO'j 
FLRSH 

PRINT "THERE"; 
INUERSE 

PRINT 'HOU ARE "j 

NORNRL 

PRINT 'VOU?" 

Would print HELLO normally. THERE flashing, HOU RRE in inverse 
and VOU? normally. 
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FILTER 



Procedure 



Purpose: Copies data Into the write buffer, passing tt through a 'filter' 
to remove unwanted values. 

Syntax: FILTBR(«start»4ength,«table»,«aumber») 



«table» The name of the variable specifying the Tilter' 
table to use. 

«number> The number of bytes filled in the write buffer. 

This procedure Is used to move data from the read buffer to the 
write buffer prior to sending it to the disk drive. The Tilter' 
allows all bytes which are not valid disk bytes to be removed 
from the data, 

A Tilter' is a table in memory, usually created with the MAKE 
procedure. It Is 256 bytes in length, one location for each 
possible value of a byte. If the contents of a location is 0, then 
that byte will not be passed to the write buffer. If the 
contents Is non-zero, then the contents of the table will be 
passed to the write buffer. This actually allows bytes to be 
translated into other bytes as they are written out to the 
diskette. 



Remarks: «start» 



The name of the variable which defines the start 
of the location to begin taking data from. 



length 



The number of bytes to pass through the Tilter. 
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FORM AT Procedure 



Purpose: Formats a range of tracks. 

Syntax: FORMAT(first.last.volumejnterleavejnsect,slot,drive.errm') 
Remarks: first The first track to format 

last The last track to format. 

volume The volume number to be recorded on the diskette. 

^interleave> The name of the byte array containing the numbers 
for the sectors on the tracks to be formatted. 

nsect The number of sectors per track. 

slot The slot of the disk drive to format, 

drive The drive number to format. 

«error» The name of the variable to return the result code 
in. A value of signifies that no errors took place. 

Note that this command will erase any data previously present 
on the track(s) being formatted. 

Example: The statement: 

F0RnflT(0,31,0,F0Rm6,l6,6J,ERR) 

Would format the entire disk In slot six, drive one, using the 
predefined variable F0Rni6 for the Interleave table, with 16 
sectors per track and return any error code In the variable 
ERROR. 



Ofi^ter S^uiltHn Statements 



N A DOL Programmer's Reference Manual 



8.20 



FREE 



Function 



Purpose: Returns the amount of space available for programs and data. 
Syntax: variable^ FRBEd) 

Remarks: x Is a dummy expression used only as a place holder. Is the 
normal value used. 

Example: The statement: 

PRIHT FREE(O) 

Would print the amount of available space for additional data 
and program. 



Purpose: Defines a user subroutine which returns a value to the calling 
program. 

Syntax: FUNCTION name 

Remarks: Chapter 6 contains full details on the use of procedures and 



FUNCTION 



STflTEMENT 



functions. 
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STnTEMENT 



Purpose: Transfers program execution to another location. 
Syntax: GOTO labelname 

Remark: Program flows begin following the specified label statement. 

The GOTO statement Is provided only for those cases where It 
Is absolutely necessary. The structured nature of NADOL 
allows almost all programming situations to be overcome 
without using the GOTO statement. 

Example: The following program: 

LRBEL THERE 

PRINT "FOR EMER RHO EUER" 
GOTO THERE 

Would print FOR EVER AND EVER continuously on the screen 
until the program was stopped with a ctrl-C. 
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8.22 
Procedure 



Purpose: Moves the cursor to a new location on the screen, 
Syntax: GOTOXy(x.y) 

Remarks: x The new horizontal position In the range to 39, 

y The new vertical position In the range to 23. 

This procedure does not place a cursor on the screen, It just 
sets the next location for an input or print operation. 

Example: The following program: 

DEFINE INTEGER V 
V-0 

UHILE V<10 

G0T0XY(20,V) 

PRINT V 

V=V*1 
EHOUHILE 

Would print the numbers through 9 on consecutive lines of the 
screen, indented twenty spaces. 
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HCOLOR 



8.23 
Procedure 



Purpose: Sets the color for high resolution plotting. 
Syntax: HCOLOR- expression 

Remarks: expression is a value from to 7 corresponding to the 
following colors: 

0= Black 1 4=Black2 

1= Green 5=0range 

2= Violet 6=Blue 

3= White 1 7=Whlte2 

If expression Is greater than 1, expression MOD 8 Is used for the 
color value. 

Example: The following program: 

DEFINE INTEGER X 

HIRES 

X-0 

UHILE X<280 
HCOLOR- X/8 
HPLOT X,0 TO X,191 
X-X+1 

EHDUHILE 

Would draw a series of vertical bars on the hires screen, each 
one 8 dots wide. 
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8,24 

STHTeiiENT 



Purpose; Reads HEX data Into a byte array, with an optional checksum. 

Syntax: HBXPAd name WITH ' teit" { , checksum ) 

Remarks: <name:g> The name of the array where the converted data 
will be placed. 

text A series of ASCI 1 characters which represent the 
hexadecimal form of the data which Is to be placed 
In name. 

checksum An optional value which Is used to verify that the 
characters In text have been typed tn correctly. 

This statement Is na^mally used to enter raw data, or machine 
language routines. Since the main use of this statement will be 
for entering large amounts of raw data, the checksum has been 
provided as an optional method of verifying that no 
typographical errors exist. The checksum is computed by 
stepping through the each value, exclusive ORIng each with the 
previous, and adding one to the result at each stage. 

Example: The following program: 

DEFINE BVTE[40] DflTfl 

HEXPflCK DflTfl UITH "C8C5CCCCCF00MC2 

PRINT lORTR 

Would print: 

HELLO 

On the screen, since that was the ASCII equivalent of the HEX 
data which was entered. 
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Purpose: Initializes high resolution graphics mode. 
Syntax: HIRK 

Remarks: This command turns on the hires screen and clears it to black. 
This command should be used before any hires graphic 
commands are performed, or unpredictable results may occur. 

Applesoft baste In ROM Is required to use this statement 

Example: See the HCOLOR statement. 

HLINE PROCeDURG 
Purpose: Draws a line on the lores screen. 
Syntax: HLINE(iI,yl,x2) 

Remarks: xl X coordinate of the starting point, In the range 0-39, 
yl Y coordinate of the starting point, In the range 0-47. 
x2 X coordinate of the ending point, In the range 0-39. 
x2 must be greater than xl. 

Example: See the COLOR statement. 

HOME STRTEflENT 

Purpose: Clears the screen and places the cursor in the upper left hand 
corner of the screen. 

Syntax: HOME 
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HPLOT STHTEfieNT 



Purpose: Plots points or draws lines on the hires screen. 

Syntax: HPLOT {x.y) (TO x.y).... 

Remarks: x The x coordinate In the range 0-279, 

y The y coordinate In the range 0-191. 

If only one coordinate is specified then a dot Is plotted. 

If only a TO x,y Is specified then a line will be drawn from the 
last plotted point. 

If a coordinate and one or more secondary coordinates Is 
specified then a string of connected lines will be drawn 
between all of the specified points. 

Example: See the HCOLOR statement. 
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HSCRN Function 



Purpose: Returns the value of a dot on the hires screen. 
Syntax: variable^ SCRN(x.y) 

Remarks: x The x coordinate of the point to read, In the range of to 
279. 

y The y coordinate of the point to read. In the range of to 
19K 

The value returned will be a 1 or a 0, depending on whether the 
specified dot was on or off. The color of the dot Is not 
returned, since colors are determined by whether or not dots 
are next to each other, and whether they are In odd or even 
columns. 
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IF. ELSE and ENDIF STFnreMENT 



Purpose: Alters program flow based on a condition. 
Syntax: IF expression 

{ statements executed on true ) 
{ ELSE ) 

{ statements executed on false ) 
BNDIF 

Remarks: If the value of expression Is non-zero, then the statements up 
to the ENDIF or up to the optional ELSE will be executed. If 
expression Is zero, then the statements following the ELSE 
statement will be executed if It is present, otherwise program 
execution will continue following the ENDIF. 

IF-ELSE-ENDIF blocks may be nested up to 8 levels deep. 

Example: The following program segment: 

IF VOU > 10 

PRINT -GREATER THAN 10" 
ELSE 

PRINT "LESS THRN OR EQUAL TO 10" 

END IF 

Would print GREATER THRN 10 If the variable VOU was greater 
than 10, or LESS THRH OA EQUAL TO 10 otherwise. 
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IN# 


STRTeneNT 


Purpose: 


Takes program input from a peripheral slot. 


Syntax: 


IN* expression 


Remarks: 


expression may be a value from to 7, and corresponds to the 




peripnerai siols in me compuier. a vaiue or u Wiii reium inpUt 




to the keyboard. 


Example: 


The statement: 




IN» 2 




Would Instruct NADOL to begin taking Input from the peripheral 




In slot number 2 


INIT 


ConnHND 


Purpose: 


Formats a diskette for storage of programs and data 


Syntax: 


INIT name 


ncfTlartsS. 


1 ne name specii leu may ue up to \z cnaraciers encioseo in 




quotes or the name of a byte array containing a file name. It 




Will ue ptaceo on me aisKeiie ana aispiayeo wnenever a 




CATALOG command is performed. 




The current work drive Is used for this command. 


Example: 


The statement: 




IHIT -HEUOISK- 



Would format a diskette in the current workdrlve, making it 
available for storage of NADOL data. The name on the disk 
would be set to HEUDISK. 
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I NPUT Procedure 



Purpose: Reads ASCI I data from the keyboard into a byte array. 
Syntax: INPUT{name.max,couat) 

Remarks: ^name> The name of the byte array to place the data read 
from the keyboard into. The text will be 
terminated by a zero. 

max The maximum number of characters to allow. 

<count» The name of the variable where the count of the 
number of characters read Is to be returned. 

During an Input statement, the user may use the backspace key 
to delete errors. 

The <RETURN> key accepts a response. 

If the user types an <ESC>, the Input will abort and set count 
to-]. 

If the user attempts to type In more than max characters, the 
extras will be Ignored and the cursor will not move on the 
screen. 

Example: The statement: 

IHPUT(EnPTY,20,C0UHT) 

Would prompt the user for a string with a limit of 20 
characters. The data typed by the user would be placed into the 
array named EHPTV, and the number of characters entered would 
be returned In COUNT. 
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8.31 



INVERSE 



STHTEneNT 



Purpose: Sets inverse mode for all printed cnaracters. 



Syntax: INVERSE 



Example: See FLASH. 



LABEL 



STHTGMeNT 



Purpose: Sets a location which can be branched to with a GOTO 
statement. 

Syntax; LABEL name 

Remarks: name is up to eight characters which define the name of the 
location marker being set 

A label may not be defined within an IF-ELSE-ENDIF or 
WHILE-ENDWHILE block. 

Example: See the GOTO statement. 
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LCMOVE Procedure 



Purpose: Moves data to or from a language card. 

Syntax: LCM0VB(mem«ad<lress4c«address,length.direction) 

Remarks: «mem«address> The name of the variable which specifies 

the start of the area to transfer. 



lc«address The value of the starting location for the 

transfer. In the range $0'-$2FFF, 



length 



The number of bytes to transfer to or from 
the language card. 



direction 



Specifies whether data Is transferred to or 
from the language card: 

0= From language card 

1 = To language card 



LENGTH Function 

Purpose: Returns the length of the text in a byte array. 
Syntax: variabie- LBNGTH(name) 

Remarks: «name> The name of a byte array containing ASCII text 
terminated with a zero. 

Example: The following program: 

DEFINE BVTE[30]!LUHCH 

PACK LUNCH UITH "SflHDUICHES RHD SODR" 
PRINT LENGTH(LUNCH) 

Would print the value 19, which is the length of the string 
placed into the variable LUNCH. 
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LIST ComHND 



Purpose: Displays the current program. 
Syntax: LIST 

Remarks: The <SPACE> bar will pause the listing and ctrl-C will abort 
the listing. 
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8.34 



LOAD 



ConnRND 



Purpose: Loads a file from the current work diskette. 
Syntax: LOAD filename { AT address ) 

Remarks: filename Up to twelve characters In double quotes, or the 
name of the byte array containing the name of the 
file to load 



If the AT option Is left off, the file Is loaded as a program Into 
the current program space and all variables are cleared. 

The AT option specifies an address at which to load the 
specified file. In this case, the variables are not cleared. This 
Is useful for loading data such as hires pictures. 

Example: The following statement: 

LOAD "PROGRfltl" 

Would load the file named PROORfin from the current workdrlve. 
The statement: 

LORD "PICTURE" AT rtEnORV[ $40001 

Would load the file named PICTURE at memory address $4000. 

If a LORD statement which loads a program Is executed from 
within a running program, the file will be loaded normally, all 
variables will be cleared, and the new program will begin 
running at Its start. 

This allows one program to transfer control to another. 



«address» 



The name of the variable defining the location at 
which to begin loading the data. 



Cf&opter SrSuiCtHn Stotemmts 



N ADOL Programmer's Reference Manual 8.35 

LORES STRTeneNT 

Purpose: Initializes lores graphics. 
Syntax: LORES 

Remarks: Enables and clears the lores screen. This command should be 
executed before performing any lores graphics commands. 

The cursor will be moved to the lower left hand comer of the 
screen when this command is executed 

Example: See the COLOR statement. 

LSCRN Function 

Purpose; Returns the color of a point on the screen. 
Syntax: variable* LSCRN(i.y) 

Remarks: s The x coordinate of the point to check, in the range to 
39. 

y The y coordinate of the point to check, in the range to 
47. 

This function returns a value from to 15, corresponding to the 
colors listed in the table under the COLOR statement. 
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8.36 



MAKE 



PHOCeOURE 



Purpose: Creates a filter In the specified array. 

Syntax: MAKE(address.length.start,iium«2eroes.bit«lenglli) 

Remarks: «address> The name of the variable which determines the 

start of the area In which to place the filter 



num^zeroes The number of consecutive zeroes which are 
allowed In each valid byte In the filter. 

bit* length The total number of bits In each byte, normally 
between 8 and 1 0. 
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length 



The number of bytes to create. 



start 



The first value to use in making the filter. The 
remaining values will follow consecutively 
from this one. 
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MASK Proceoure 



Purpose: Sets and clears bits In a range of memory. 



Syntax: MASK(startiength.or»value.and«value) 



Remarks: «start> 



The name of the variable which determines the 
start of the area to mask. 



length 



The number of bytes to mask. 



or«value 



The value to logically OR all bytes In the 
specified range with. 



and«value 



The value to logically AND all bytes in the 
specified range with. 



This procedure can set bits In a range with the or®value, and it 
can clear bits with the and«value. 

Example: The following statement: 

nnSt((RBUF[300] , 500, $80, $FE) 

Would set bit 7 and clear bit of the bytes from the 300th 
element of RBUF to the 800th element of RBUF. 

NEW COIiliRND 

Purpose: Erases the current program and clears the current variable 
space. 

Syntax: NEW 
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NOT 



8.38 
Function 



Purpose: Returns the logical Inverse of a value. 
Syntax: variable- NOT(eipression) 

Remarks: If expression Is 0, 1 Is returned, in all other cases, Is 
returned, 

NORMAL STRTEfieNT 

Purpose: Returns text display to norma! (non-inverse) mode. 
Syntax: NORMAL 
Example: See FLASH. 
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PACK Procedure 



Purpose: Places a text string Into a byte array. 
Syntax: PACK name WITH "text" 

Remarks: ^nacaei The name of the byte array where the string will be 
placed. 

teit A series of ASCII characters. 

This procedure will place each character In text Into the 
variable name and place an extra at the end of name to 
terminate the string. 

Example: The following program: 

DEFIHEBVTEEW] CHH 

PRCK CRN UITH "SOUP OR OIL OR I I RE COLR" 
PRINT !CRH 

Would print SOUP OR OIL OR LINE COLR on the screen since that 
string was placed Into CRN with the PRCK statement. 
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PDL Function 



Purpose: Reads a game paddle. 
Syntax: variable- PDL(expression) 

Remarks: expression can be a value from to 3 and specifies the paddle 
to be read. 

The returned value will be from to 255. 

On the Apple //c, only values of and 1 should be specified for 
expression. 

Example: The following program: 

UHILE nEn0RY[$C000]<128 

GOTOXV(IOJO) 

PRINT POL(0)r - 
EHDUHILE 

nEnoRV[$coio]"0 

Would print the value of paddle until a key Is pressed. 

In this example reference Is made to location $C000, which is 
the Apple's keyboard address. This causes the program to loop 
until this location Is greater than 127, which means that a key 
has been pressed. The access to location $C010 Is made to 
clear the key that was pressed. 
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PLOT Procedure 



Purpose: Plots a dot on the lores screen. 
Syntax: PLOTd.y) 

Remarks: i The x coordinate, from to 39. 

y The y coordinate, from to 47. 

The dot is plotted using the current color specified with the 
COLOR command. 

Example: The following program would draw a blue X on the screen: 

DEFINE INTEGER POS 

LORES 

C0L0R>'2 

UHILE P0S<-39 

PLOT(POS,POS) 

PL0T(P0S,39-POS) 

POS-POS+1 
ENDUHILE 



PR# 



Purpose: Sends all text output to a peripheral slot. 
Syntax: PR# expression 

Remarks: expression may be In the range of to 7 and specifies the 

peripheral slot for output. selects the normal video output 

Examp 1 e: The statement: 

PR« 1 

Would direct all output to slot 1, which could be a printer or 
other peripheral device. 
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PRBLOCK 



8.42 



PROCEDURE 



Purpose: Displays a section of memory in a variety of formats. 

Syntax: PRBL0CK(start.len8th,label.digits/ormat,count 1 .count2.space) 

Remarks: «start:> The variable name specifying the first location to 
display. 

length The number of bytes to display. 

label The first number to show along the left margin of the 
displayed data 

digits The number of digits to show of the label above. This 
may be from to 4 A dash is printed after the label, 
and a space can be printed after the dash if 8 is added 
to the value of digs. 

format Selects how the data will be shown: 
0= ASCII 
1«HEX 

2= HEX with bytes less than $80 being shown in 
Inverse with $80 added to them. 

count 1 The number of bytes to display per displayed line. 

count2 The number of bytes to display per grouping on a line, 

space The number of bytes to display between groupings on 
a line. 
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8.43 



Example: The following program: 

DEFINE INTEGER TRACK, SECTOR, COUNT, ERR 
DEFINE BVTEE2551 BUFFER 
UHILE TRRCK<-34 
SECTOR-0 

UHILE SECT0R<-I5 
COUNT- I 

flSECT(BUFFER,TRflCK,0,SECT0H,C0UHT,6, I ,ERR) 

PRBL0CK(BUFFER,256,0,2, 1 , 16,4, 1 ) 

SECTOR-SECTOR+1 
EHDUHILE 
TRflCK-TRflCIC+1 
ENDUHILE 

Would print out all of the data on the diskette in slot six, drive 
one. 
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PRINT Procedure 



Purpose: To display data on the screen. 

Syntax: PRINT { expression ) {;) (expression) {.) {;)... 

Remarks: expression may be on of the fol lowing: 

A number, variable, or mathematical expression will 
print as a decimal value. 

A byte array name with an exclamation point (!) In front 
of It will print as the text contained In It, up to the first 
zero m the array. 

3) Text enclosed in double quotes. 

Each expression may be followed by a comma or semicolon. A 
comma will cause the next printed expression to be at the next 
8 position tab stop. A semicolon will cause the next printed 
expression to appear immediately following the previous. 

A PRINT statement may be ended with a comma or semicolon, 
which will cause the next item printed to obey the rules stated 
above. 

Example: The following program: 

DEFINE aVTE CH 

CH-32 

UHILE CH<128 

PRINT CH, 
PRIHTBVTE CH, 
PRINTHEH CH, 
PRINT !CH 
CH«CH+1 
ENDUHILE 

Would print the numbers from 32 to 127 In decimal, byte, 
hexadecimal and ASCII formats on the screen. 
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READ Function 



Purpose; Reads a character from the keyboard with a cursor. 
Syntax: variable- REAlXexpfession) 

Remarks: eipressioa A number, from 1 to 4, which specifies the width 
of the cursor which is displayed. 



This function will display a variable width cursor, and return 
the value of the first character which Is typed on the keyboard, 
It Is the normal way to read single character responses from 
within a program. 
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PR I NTB YTE STPn-erieNT 



Purpose: Prints 8 bit hexadecimal values. 

Syntax: PRINTBYTE (expression) (;) (expression) (.) (;).„ 

Remarks: This statement operates In the same manner as PRINT above, 
except that values print as two hex digits representing the 
lower byte of the value In hexadecimal. 

Example: See PRINT, 

PRINTHEX STHTEMENT 

Purpose: Print 1 6 bit hexadecimal values. 

Syntax: PRINTHEX (expression) (.) {;) (expression) (J (;)... 

Remarks: This statement operates In the same manner as PRINT above, 
except that values print as four hex digits representing the 
value in hexadecimal. 

Example: See PRINT, 

PROCEDURE srmenem 

Purpose: Defines a user subroutine. 
Syntax: PROCEDURE name 

Remarks: Chapter 6 has full details on the use of procedures and 
functions from within a program. 
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RECAL Procedure 

Moves the read/write head in the specified disk drive to track 
0. 

Syntax: RECAL{slot,drive) 

Remarks: slot The slot number to use. 

drive The drive number to use. 

This procedure moves the head to track zero from whatever 
track It happens to be on by stepping the head out until It hits 
the track zero stop, guaranteeing that the head Is at track zero. 

Example: The statement: 

RECflL(6J) 

Would move the read head on slot six, drive one to track 0. 
RENAME COMMRND 

Purpose: Changes the name of a file on a data diskette. 
Syntax: RENAME oldnaffie.newname 

Remarks: The names specified may be either up to twelve character 

names In quotes, or the names of byte arrays containing the file 
names. 

Example: The statement: 

RENflHE "tlVPHOGRflfl", "VOURPROGRflH" 

Would change the name of the file nVPROGRRH to VOURPROGRRH. 
The program itself would not be changed. 
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RBLOCK Procedure 



Purpose: Reads one or more blocks from a ProDOS format diskette. 

Syntax: RBLOCK(address.block.a)unl»slot,drive,error) 

Remarks: <caddress» The name of the variable specifying the load address 
for the first block read. 

«block» The name of the variable containing the first block 
number to read. On exit this variable will contain 
the last block number read. 

«count» The name of the variable containing the number of 
512 byte blocks to read In. On exit this variable 
will contain zero If no errors occurred, or the 
number of blocks left to be read If an error occurred. 

slot The slot number of the disk drive to use. 

drive The drive number to use, 

<g;error» The name of the variable to place the return error 
code Into. A value of zero signifies no error. 

This procedure reads blocks from a ProDOS format diskette. 
This means 512 byte blocks, 8 per track, 280 per disk. This Is 
the format used by Apple Pascal and NADOL's data diskettes. 

Example: The following program would display all of the data on the 
diskette In slot six, drive one on the screen In ASCII format: 

DEFINE INTEGER BLOCK, COUNT, ERR 
WHILE BL0CK<«2?9 
COUNT- 1 

RBL0CK(RBUF,BL0CK,C0UNT,6, 1,ERR) 
PRBLOCK(RBUF, 512,0,2,0,32,32,0) 

PRINT 

BLOCK-BLOCK*! 
ENDUHILE 
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RESULT Statement 



Purpose: Evaluates the expression to be returned as the result of a user 
defined function. 

Syntax: RESULT^ exprescion 

Remarks: expression Is evaluated and returned to the calling statement In 
the main program. 

Example: See section 6 for full details on FUNCTION and RESULT. 
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RSYNC 



8.49A 
Procedure 



Purpose: Functtonally Identical to RTRACK, except that a reference mark 
on track zero is checked before reading. 



Syntax: )ffSYNCC«patiere»,€address».track.half,8!ot,dfiV0) 

Remarks: ^pattern^ The name of the byte array which contains the 
pattern to be checked before seeking and reading. 

€address» The name of the variable which specifies the 
address to begin reading at. 

track The number of the track to read from. 

half This is a zero or one signifying whether the half 

track should be read or not. Zero is the normal 
value and causes the normal track to be read. A 
value of one causes the next half track to be read 
Instead. 

slot The slot number of the disk drive to use. 

drive The drive number to use. 

Remarks: Before reading, this procedure seeks to track 0, finds the 

specified pattern, and then Immediately seeks to the specified 
track and begins to read. 
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RSECT 



8.49 
Procedure 



Purpose: Reads one or more sectors from a diskette. 

Syntax: RSEGr(address,track,half,sector.count.slot.drive,error) 

Remarks: «:address» The name of the variable specifying the address to 
begin reading at. 

«track> The variable containing the track number to begin 
reading on. On exit this will contain the track 
number of the last read sector 

half This Is a zero or one signifying whether the half 

track should be read or not. zero Is the normal value 
and causes the normal track to be read. One causes 
the next half track to be read Instead. 

«sector> The variable containing the sector number to start 
reading at. On exit this will contain the sector 
number of the last sector read. 

«a)unt» The variable containing the number of sectors to 
read. Sectors will be read In Increasing order, 
moving to the next track when the highest sector 
number Is reached, On exit this will contain zero If 
no errors occurred, or the number of sectors that 
were not read In If an error occurred. 

slot The slot number of the disk drive to use. 

drive The drive number to use. 

«error> The name of the variable that the error return code 
should be placed Into. This will be a zero If no 
errors occurred. 

This routine reads using the format set with the SETFORMAT 
procedure. 



Example: See PRBLOCK. 
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RTRACK 



8.50 

PROCEDUHe 



Purpose: Reads the raw data from the specified track Into the read 
buffer. 

Syntax: RTRACK{acldress,track,liatf.slot,drive) 

Remarks: ^address» The name of the variable which determines the 
starting location for the data read from the 
diskette. 

track The track number to use. 

half The half-track flag. A value of *0' causes the normal 
track to be read. A value of ' r causes the next 
half-track to be read, 

slot The slot number of the drive to read, 

drive The number of the drive to read, 

RTRACK begins reading at the address specified above, and 
always ends at RBUF($3FFFl This Is the ending address in 
RBUF, the main read buffer. 

Data read from the disk has seven valid bits, 0-6 (the lower 
seven). Bit 7 (MSB) signifies whether the byte was a SYNC byte 
or not. If bit 7 Is high, the byte was a normal 8 bit byte. If bit 
7 is low the byte was followed by one or two zero bits on the 
disk, making It a SYNC byte. 

Example: The statement: 

RTRflCK(R8UF,5,0,6J) 

Would read the raw data from track 5 of the diskette in slot 
six, drive one into memory starting at the beginning of RBUF and 
ending at the end of RBUF (HBUF[$3FFF]), 
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RUN ConriRNo 

Purpose: Begins the execution of a user program. 
Syntax: RUN 

Remarks: The RUN command clears the screen and positions the cursor in 
the upper left hand corner of the screen prior to executing the 
user program. 
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SAVE 



8.52 

COMMRNO 



Purpose: Stores programs or data on a diskette. 
Syntax: SAVE filename {AT addressjength) 

Remarks: filename A quoted filename of up to twelve characters or the 
name of the byte array containing the file name. 

«address» If specified, this Is the name of the variable which 
determines the location to begin the save at 

length If specified, this Is the number of bytes to save to 
the diskette. 

If the AT section Is not specified, then the current program in 
memory Is saved under the specified name on the current work 
disk. 

The AT option allows data to be saved, such as hires pictures 
or blocks of information for future reference. 

Example: The statement: 

SflUE TROGRfln- 

Would save the current NADOL program in memory under the 
name PROORHH on the current workdrlve. 

The statement: 

SflUE **PICTURE^ RT flEnORV[|4000],$2000 

Would save the memory from $4000 to $5FFF in a disk file 
named PICTURE This would save the hires picture buffer to 
disk. 
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SETFORMAT PROCEDURE 



Purpose: Selects the format, address header, data header, and Interleave 
for the RSECT, WSECT and FORMAT procedures. 

Syntax: SETFORMATCtype.addressalieader.datatheader .interleave) 

Remarks; type The type of encoding to be used on the 

diskette: 

0=6 and 2 (16 sector) 
1 - 5 and 3 ( 1 3 sector) 
2= 4 and 4 (10 sector) 



«address©header» The name of a byte array containing the six 
bytes to be used as the address header. 
The first three bytes are the address mark, 
and the next three are the closing mark. 

^data®header« The name of a byte array containing the six 
bytes to be used as the data header. The 
first three bytes are the data mark, and 
the next three are the closing mark. 

«interleave» The name of the byte array containing the 
Interleave table for the diskette. See the 
section on pre-defined variables for 
Information on built-in interleave tables. 



This procedure sets up Internal Information used when reading 
and writing sectors. 



Only the first two bytes of the closing mark are used for 
reading, the third byte Is for writing only. 



Example: The statement: 



SETF0RnflT(0,RD0R16;DflTR16,INT16) 



Would select 6 and 2 format with the standard address field, 
data field and Interleave for normal DOS 3.3 diskettes. See 
section 9 for more information on built-in variables. 
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SIZEOF 



8.54 
Function 



Purpose: Determines the size of a NADOL disk file. 
Syntax: variable- SIZEOF(filename) 

Remarks: filename Up to twelve characters In quotes, or the name of 
the byte array containing the file name. 

This function returns the number of bytes occupied on the 
current work disk by the specified file. 

If the specified file does not exist, a value of -) Is returned, 
which allows NADOL programs to check for the existence of 
programs on a diskette. 

STOP Sthtement 

Purpose: Terminates program execution and returns to immediate mode. 
Syntax: STOP 

Remarks: Setting BREAK- 1 will disable this statement 



DA 1 BTHTEflENT 

Purpose: Switches off graphic modes and returns to full screen text 
mode. 

Syntax: TEXT 
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VLINE 



8.55 
Procedure 



Purpose: Draws a vertical line on the lores screen. 
Syntax: VLINE(xl,yl.y2) 

Remarks: xl X coordinate of the starting point, to 39. 
yl Y coordinate of the starting point, to 47 
y2 Y coordinate of the endpoint, to 47 
y2 must be greater than yl. 

Example: See the COLOR statement. 
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WBLOCK 



8.36 
Procedure 



Purpose: Writes one or more blocks to a ProDOS format diskette. 

Syntax: WBL(X:K(address,blcck»count,slot,drive.error) 

Remarks: «addfess> The name of the variable specifying the save 
address for the first block written. 

«Wo€k» The name of the variable containing the first block 
number to write. On exit this variable will contain 
the last block number written. 

«cou0t» The name of the variable containing the number of 
5 1 2 byte blocks to write out. On exit this variable 
will contain zero If no errors occurred, or the 
number of blocks left to be written in If an error 
occurred. 

slot The slot number of the disk drive to use. 

drive The drive number to use. 

«errof :^ The name of the variable to place the return error 
code Into. A value of zero slgnlf tes that no error 
took place. 

This procedure writes blocks to ProDOS format diskettes.. This 
means 512 byte blocks, 8 per track, 280 per disk. This Is the 
format used by Apple Pascal and NADOL's data diskettes. 

Example: WBLCXX operates In the same fashion as RBLCXX, See RBL(X:k 
for a programming example. 
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WHILE/ENDWHILE BTHreneNT 



Purpose: Causes a section of a program to be executed repeatedly until a 
condition Is met. 

Syntax: WHILE expression 



(executable statements) 
BNDWHILE 

Remarks: if the value of expression Is zero then program execution 
resumes following the BNDWHILE statement. 

If the value of expression Is non-zero, then the statements up 
to the BNDWHILE are executed normally, and then control Is 
transferred back to the WHILE statement where expression Is 
tested again. Control will continue to be transferred back to 
the WHILE statement until expression evaluates to zero. 

Example: See COLOR, GOTOXY, HCOLOR, PDL, PLOT, PRBLOCK and RBLOCK 
for programming examples. 
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8.58 



WORKDRIVE 



STHTeriENT 



Purpose: 

Syntax: 

Remarks: 



Example: 



Defines the drive for file operations. 
WORKDRIVE slotdrive 
slot The slot of the disk drive to use. 
drive The drive number to use. 

The WORKDRIVE statement selects the drive which will be 
used by all LOAD, SAVE, DELETE, RENAME and INIT commands. 

Initially the WORKDRIVE Is set to the boot drive. 
The statement: 
UORKORIUE 6,2 

Would cause future file statements to use slot 6, drive 2 until 
another MORKDRIUE command was Issued. 
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WSYNC Procedure 

Purpose: Functionally Identical to WTRACK, except that a reference mark 
on track zero Is checked before writing. 

Syntax: WSYNC(«pattern»»sync«8ii«.pre«nil.track,half,slot,drive,<error») 

Remarks: «patter!i» The name of the byte array which contains the 

pattern to be checked before seeking and writing. 

synic^sijse A number, either 9 or 10, specifying the length, In 
bits, of each sync byte written. 

The number of byte times to wait before writing 
the data to the disk. 

The number of the track to write to. 

This is a zero or one signifying whether the half 
track should be written or not. Zero is the normal 
value and causes the normal track to be written. A 
value of one causes the next half track to be 
written instead. 

The slot number of the disk drive to use. 
The drive number to use. 

The name of the variable that the error return code 
should be placed Into. This will be a zero if no 
errors occurred, a write protect error will be 255, 
a synchronization error will be I. 

Remarks: See WTRACK for the effect of the high bit of the data 

Before writing, this procedure seeks to track 0, finds the 
specified pattern, and then immediately seeks to the specified 
track, waits prasfill byte periods, and begins to write. Pre^fiil 
is used to let the disk drive turn a specific amount. 

WSYNC always writes 10 SYNC bytes before the specified data 



pre®fill 

track 
half 

slot 
drive 
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Purpose: Writes a section of raw data to a diskette from the write 
buffer. 

Syntax: WTRAac{syiic®size,pre»fill,track,half.sIol,drive.«erf<^») 

Remarks: sync«size A number, either 9 or 10, specifying the length, In 
bits, of each sync byte written. 

pre®fill The number of sync bytes to write out prior to 
writing any data Normally this should be four or 
greater, 

track The number of the track to write to. 

half This Is a zero or one signifying whether the half 

track should be written or not Zero Is the normal 
value and causes the normal track to be written. A 
value of one causes the next half track to be 
written Instead. 

slot The slot number of the disk drive to use, 

drive The drive number to use. 

<error» The name of the variable that the error return code 
should be placed Into. This will be a zero If no 
errors occurred. 

Remarks: This procedure starts at the beginning of WBUF and proceeds to 
write data until two consecutive zeros are encountered in the 
data (two consecutive zeros Is not a legal sequence to write to 
the disk, so no conflicts arise). 

The high bit In each byte determines how It will be written to 
the disk. If the high bit Is clear, the byte is written normally. 
If the high bit Is set, the byte Is followed by extra zero bits, 
making It a SYNC byte on the disk. 
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Purpose: Writes one or more sectors to a diskette. 

Syntax: WSECT(address.track,half.sector,count,slot,drive,error) 

Remarks: «address» The name of the variable specifying the address to 
begin writing at. 

«track» The variable containing the track number to begin 
writing on. On exit this will contain the track 
number of the last sector written. 

half This Is a zero or one signifying whether the half 

track should be written or not. Zero Is the normal 
value and causes the normal track to be written. A 
value of one causes the next half track to be 
written instead. 

^sector> The variable containing the sector number to start 
writing at. On exit this will contain the sector 
number of the last sector written. 

«count> The variable containing the number of sectors to 
write. Sectors will be written in Increasing order, 
moving to the next track when the highest sector 
number is reached. On exit this will contain zero 
If no errors occurred, or the number of sectors 
that were not written In If an error occurred. 

slot The slot number of the disk drive to use, 

drive The drive number to use. 

«error» The name of the variable that the error return code 
should be placed Into. This will be a zero if no 
errors occurred. 

Remarks: This routine writes using the format set with the SBTFORMAT 
procedure. 
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PREDEFINED VARIABLES 

There are several variables which are built-in and therefore always 
available to a user program or from immediate mode. These variables are 
defined for some of the more commonly needed arrays, as well as for 
system variables which need to be accessible from a program. They are as 
follows: 



MEMORY Byte Array 

Description: An array which encompasses the entire machine memory 
range. MEMORY[0] Is location $0 In the computer's 
memory and riEMORY[$FFFF] Is location $FFFF. All 
addresses in between work the same way. This allows 
access to any area In the machine's memory. Use caution 
with this array! 



BREAK Byte 

Description: This byte controls the operation of ctrl-C If set to a zero 
(normal) then ctrl-C will stop program execution. If set 
to a one, ctrl-C will not halt program execution. 

If This value is set to a one then<RESET> will not return 
to immediate mode, it will cause the current program to 
start executing from the beginning. 

Caution: If this variable is set to 1 , the program running cannot be 

stopped by <RESE1> or ctrl-C! This is a potentially 
dangerous situation since the computer must be turned 
off to return to Immediate mode, erasing any changes 
made since the last save. To avoid this, only set BREAK 
to 1 In well tested code, possibly adding an exit 
command which sets BREAK back to and ends the 
program. 
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ERROR Byte 

Description: This byte contains the number of any error which has 
occurred. If this number Is set to other than It will be 
as though that error condition had occurred. 



PRTSLOT Byte 

Description: This byte contains the slot number to use for screen print 
operations (ctrl~P). It can be in the range of 1 through 7. 



MACHID Byte 

Description: Indicates the type of machine being used. This byte is set 
at boot time. The values for different machines are: 
0- Apple ][ 2- Apple //e 
1= Apple ][+ 3- Apple //c 
If a non-Apple computer is being used which does not 
match any known Apple ID pattern, NADOL will assume 
that the computer is Apple ][+ compatible. 



HASLC Byte 

Description: Indicates the presence of a language card In slot of the 
machine. A zero signifies no card, a one Indicates that 
one Is available. This check Is performed at boot time. 



HASAUX Byte 

Description: Indicates the presence of useable auxiliary memory in the 
machine. A zero signifies no card, a one Indicates that 
auxiliary memory Is available. This check is done at boot 
time. Note that this is always false on an Apple ][ or ][-^, 
and always true on a //c. 
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RBUF Byte array 

Description: This Is the read buffer used by NADOL for raw data reads 
(RTRRCK) It Is $3FFF bytes in length. 



WBUF Byte Array 

Description: This Is the write buffer used by the NADOL raw data write 
routine (UmtBCK). It is $29FF bytes in length. 



ADDR16 Byte array 

Description: This array contains the normal address mark for 16 sector 
diskettes. It Is six bytes in length and contains the 
following values: 

D5 AA 96 DE AA EB 
This is normally used with the SETFORMBT procedure. 



DATA 16 Byte array 

Description: This array contains the normal data mark for 16 sector 
diskettes. It Is six bytes In length and contains the 
following values: 

D5 AA AD DE AA EB 
This is normally used with the SETFOHMHT procedure. 



ADDRt3 Byte array 

Description: This array contains the normal address mark for 1 3 sector 
diskettes. It Is six bytes in length and contains the 
following values: 

D5 AA B5 DE AA EB 
This is normally used with the SETFORMHT procedure. 
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DATA 13 Byte array 

Description: This array contains the normal data mark for 13 sector 
diskettes. It ts six bytes In length and contains the 
following values; 

D5 AA AD DE AA EB 
This Is normally used with the SETFOHMRT procedure. 



FORM 16 Byte array 

Description: This array contains the numbers for the sectors on a 
normally interleaved 16 sector diskette. It is sixteen 
bytes long and contains the following values: 

00 01 02 03 04 05 06 07 08 09 OA OB OC OD OE OF 
This Is normally used with the FOiNflT procedure. 



FORM 13 Byte array 

Description: This array contains the numbers for the sectors on a 
normally interleaved 13 sector diskette. It is thirteen 
bytes long and contains the following values: 

00 OA 07 04 01 OB 08 05 02 OC 09 06 03 
This is normally used with the FOBMfiT procedure. 

INT 16 Byte array 

Description: This array contains the normal interleave table for a DOS 
3.3 diskette. It is sixteen bytes in length and contains 
the following values: 

00 OD OB 09 07 05 03 01 OE OC OA 08 06 04 02 OF 
This Is normally used with SETFOBMBT. 
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INTPAS Byte array 

Description: This array contains the normal Interleave table for a Pascal 
or ProDOS diskette. It is sixteen bytes long and contains 
the following values: 

00 02 04 06 08 OA OC OE 01 03 05 07 09 OB OD OF 
This Is normally used with SETFOHMBT. 



INTCPM Byte array 

Description: This array contains the normal Interleave table for Apple 
CP/M. It Is sixteen bytes long and contains the following 
values: 

00 03 06 09 OC OF 02 05 08 OB OE 01 04 07 OA OD 
This Is normally used with SETFORMRT. 



INT 13 Byte array 

Description: This array is the interleave table for diskettes which do 
not use software interleaving, such as 13 sector disks. 
It is thirteen bytes long and contains the values: 

00 01 02 03 04 05 06 07 08 09 OA OB OC 
This is normally used with SETFORMRT. 



WNDLEFT Byte 

Description: The value for the left margin of the text screen. Normally 
set to 0. The sum of this value and WNDWIDTH should 
never exceed 40. 



WNDWIDTH Byte 

Description: The value for the width of the text screen. Normally set 
to 40. The sum of this value and WNDLEFT should never 
exceed 40. 
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WNDTOP Byte 

Description: The value for the upper line of the text screen. Normally 
set to 0. This value should be from to 22, but never 
greater than WNDBOT. 



WNDBOT Byte 

Description: The value for the lower line of the text screen. Normally 
set to 23. This value should be from to 23, but never 
less than WNDTOP. 



Nibbles Away III & other utilities 



The NADOL master disk is shipped with Nibbles Away III and several other 
utilities. This section discusses the use of these utilities in detail. 

When the NADOL master disk is booted, first a copyright message will 
appear on the screen, Then the NAIX)L logo will be shown. At this point, 
pressing the <SPACE> bar will cause the main NAIII menu to be displayed. 
It will look like this: 

HftOOL HiBBLES flUflV 1 1 1 UERSIOH 

00000 1.0 

mSTER tIENU 



1 - NIBBLE COPV 

2 - FAST SECTOR COPV 

3 - TRACK EDITOR 

4 - SECTOR EDITOR 

5 - DISK SPEED TEST 

6 - COHFIGURRTIOH 

7 - RUTO EXECUTE 

8 - EXIT TO NRDOL 

9 - USER fiPPLICRTIOHS 



ENTER SELECTION ->0 ? FOR HELP 

The '?■ key will cause a HELP screen to be displayed. This key is active in 
each of the options on the menu, and can be used to obtain useful 
information. For example, in the sector editor, the question mark will 
display a list of valid commands and their functions. 

Each of the other options on this menu will be discussed separately, since 
each pertains to a different utility program. For now we will talk about 
the last two options, *8 and *9. 
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Pressing '8' from this menu will exit to the NADOL Immediate mode. If 
this option is pressed by mistake, simply type 'RUN' and press <RETURN> to 
show the main NAIII menu once again (a message on the screen will remind 
you of this). The Immediate mode can be Identified by the dot prompt 
which shows at the left hand margin. From this mode, all of the features 
of NADOL are directly accessible, as discussed in section I of this manual. 
(For those users who wish to create NADOL work disks without NAIII on 
them, see the note at the end of this chapter). 

Option '9* switches the screen to a list of 'user applications'. These are 
programs written by the user which can be run directly from the main 
menu. There will be several suggestions In 'Nibble News', the Nibbles 
Away newsletter, available from CWPUTERiappllcations, Inc. As shipped, 
there are no names on this list, but any desired names may be added by 
editing the 'NAIir program using the NADOL editor, described in section I. 

On the following pages each of the other options will be discussed, one at 
a time. 

At any time, control-P (press and hold the control key and then press 'P') 
win cause the screen to be printed to the printer. NADOL is shipped to use 
siotlfor a printer, but this may be changed using option -^6 (configuration, 
see below). As the screen is printed, an underline will pass over the 
screen, showing the progress of the printout When the printout is 
complete, NADOL (or NAIII) will resume what it was doing. 



&mf^ m nAttt 



Nibbles Away III & other utilities 



10.3 



NIBBLE COPY 

The Nibble copy, option (^1) (s the normal way to copy most protected 
diskettes, it has several different options which enable It to duplicate 
just about any protection system currently In use. 

When this function Is chosen, a selection screen will be displayed with 
several options. Each option has a number to the left of it which Is used to 
change that particular option. If an option cannot be changed (i.e. the slot 
number with only one disk controller In the system), then that option will 
have its number replaced with an asterisk (^) to show that it may not be 
selected. Each option has the following function: 

1 . Changes the source slot. Only slots which contain disk controllers will 

be displayed. 

2. Changes the source drive from 1 to 2 and back again. 

3. Changes the destination slot 
4 Changes the destination drive. 

5. Changes the starting track number. When this option Is selected, the 

cursor will be positioned to the right of the start track line. Then a 
starting track value between and $23 may be entered (this number 
Is entered In HEX). If a half-track value Is desired, add '.5' to the 
number. 

6. Changes the ending track number. This Is entered In the same fashion 

as the starting track, above. The only restriction Is that the ending 
track must be larger than, or equal to, the starting track. 

7. This option specifies by what increment the copy will step for each 

new track. It is entered in the same way as the previous two options. 
The only restriction Is that the step be greater than and less than 
$23. 

8. This toggles the Synchronization flag. When set to '[ON]', each track on 

the destination disk will be placed In the same physical orientation 
as on the original Normally this option should be set to '[OFF]'. See 
section 3 for more details on synchronization. 
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9. This toggles the Nibble count flag. When set to '[ON]', each track on the 
destination disk will have the exact same number of nibbles as the 
corresponding track on the original disk. Normally, this should be set 
to '[OFF]'. See section 3 for more details on Nibble counting. 
0. This option will show another screen of options. These options are 
those which do not normally need to be modified. This second screen 
operates in the same way as the previous screen. The options allow a 
specific address mark to be looked for, as opposed to the automatic 
address mark selector. Also, the default sync byte size of 10 bits may be 
set to 9 bits if desired. Normally, these options should be left in their 
default condition. 

Normally, these options will already be set correctly. The only item which 
normally has to be changed is the source/destination information (options 
1-4), if a single drive system is being used. 

CAUTION: Original diskettes should ALWAYS have a write protect tab on 
them when performing a copy, especially on a one drive system where 
the disks are being exchanged into the disk drive. This will eliminate 
the possibility of destroying a master disk due to insertion in the 
wrong drive! 

After all of the options are correct, press the <RETURN> key to begin the 
copy. A prompt will ask for both disks to be Inserted if using two drives, 
or for the source disk to be inserted if only one drive is being used. After 
inserting the appropriate disks, press the <RETURN> key to continue. As 
the copy progresses, a status display will appear on the screen. The result 
of the copy on each track will be displayed as it is completed. 

The status code Is a three digit sequence. The first character is a 'Y' or 'N', 
Indicating whether or not that particular track was successfully copied. 
The second number indicates the number of read errors encountered, while 
the third shows the number of write errors which occurred on that 
particular track. 
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On any given track, NAIII will give up if either five read errors or five 
write errors occur. Read errors normally mean that NAiil is unable to 
locate any valid data on a particular track. Sometimes this may simply 
indicate that the track has no usable data on it, other times it may 
indicate a very advanced protection scheme. Write errors indicate that 
there was trouble putting the data on the destination diskette properly. 
This could mean that the drive speed is off, or that there is no disk in the 
drive. 

Generally, if the first character in the status code is *Y', then the track 
was properly copied, regardless of what the two errors counts indicate. 

During the copy, several keys can be pressed to invoke special functions. 
They are as follows: 

Q ~ Aborts the current copy process. 
S " Skips to the next track. 

G - Enables the graphic display mode (mainly for entertainment), 
T - Disables the graphic mode, and switches back to text mode. 



There are two irrecoverable errors which may occur during a copy: 

WRITE PROTECT ERROR 

The destination disk has a write protect tab on It 

UNABLE TO SYNCHRONIZE ERROR 

This will normally only occur if trying to perform a synchronized copy 
on a disk with no locatable data on it (l.e, a blank disk). 

Both of these will stop the copy in progress. Check the diskettes and retry 
the copy. 
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FAST SECTOR COPY 

This option is used for diskettes which are 16 sector disks. This includes 
all DOS 3.3, Apple Pascal, and Apple CP/M diskettes. This option is much 
faster than the bit copy mode, and since it knows exactly what type of 
disk is being copied, it can usually do it more accurately. 

Another benefit is that a language card, and/or the auxiliary card in a //e 
or //c will automatically be used (if both are present, only two disk swaps 
are necessary to copy a whole disk!). 

When this option is chosen, a selection menu is shown. The options are the 
slot and drive for the source and destination disks. Each option has a 
number to its left. If only one disk controller exists, then both slot 
options will show and asterisk (^) instead of a number, since that item 
may not be changed. 

Press the desired options until the proper slots/drives are shown. Then 
press the <RETURN> key. The screen will then display a message asking for 
the source (and destination on a two drive system) disks to be Inserted. 
After inserting the disk(s), press <RETURN> to begin. The copy process 
will switch between the two disks, showing the current action on the 
screen in Inverse. If a one drive system is being used, the program will 
stop and ask for the appropriate diskettes when necessary. 

After the copy is complete, the program will ask if another disk should be 
copied. If T is answered, the option screen will be displayed and the 
process can be repeated as often as desired. If *N' is entered, the main 
NAM I menu will be shown, (The master disk should be Inserted into the 
drive before selecting 'N', or the program will ask for it). 
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Track Editor 

This option is used to view the raw data present on any track on a 
diskette, Several options are available to allow the data to be scanned or 
modified, and then written back to the disk if desired. 

When first selected, this function will display several hundred bytes of 
information from the start of the read buffer on the screen. A blinking 
cursor will appear in the upper left hand area of data. This is the current 
location pointer Its location is displayed in the top left corner of the 
screen at all times. In the upper right corner is the current track number, 
initially set to zero. 

Different keys from the keyboard invoke different functions. The '?' key 
will display an abbreviated list of all of the commands and their functions. 
The full list is given below: 



1 


Moves the cursor up one line. 


J„ 


Moves the cursor on byte to the left. 


K 


Moves the cursor on byte to the right. 


M 


Moves the cursor down one line. 


Arrows.... Perform the same functions as the keys listed above. 


> 


Moves the cursor down one page. 


< 


Moves the cursor up one page. 


+ 


Increments the current track number 




Decrements the current track number. 


T 


Asks for a new track number to be entered from the keyboard. 





. Shows the Options page which allows the selection of different 




slot/drive combinations. 


F 


Asks for a HEX string to find. The cursor is moved to that location 




If the string is found. 


C, 


Shows the count of the number of bytes to the next occurrence of 




the bytes at the cursor location. 


P 


Shows the print menu, asking for a start and end location, and a 




title for the data to be sent to the printer. 


S 


Sets the Track Start* value to the cursor location. 


E 


Sets the Track End' value to the cursor location. 


M 


Moves the currently marked track (start-end) into the write buffer 




and sets the 'write buffer end' value accordingly. 


/ 


Toggles between read and write buffer display. 


G 


Prompts for a new location for the cursor. 
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R Reads the current track into the read buffer. 

W Writes the data in the write buffer to disk. 

Q Quits the track editor 

Space.... Enters the modify mode. Once entered: 

Typing HEX values will change the value of the current byte. 

The space bar will move to the next value. 

The <RETURN> key will accept the current value. 

The arrow keys may be used to move the cursor. 

The <ESC> key will abort the modify. 

Data which has its high bit clear will be written to the disk as a SYNC 
byte, and will display on the screen in inverse. 

The main use for the track editor will be to examine the data on the 
various tracks on a diskette to determine where the data lies, and what it 
Is composed of. The data seen with this module is the 'raw' disk data. To 
view the decoded version of the data, the sector editor should be used. 
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Sector Editor 

Option ^4 Invokes the sector editor, This module is used to view the data 
on a disk which is either 16 sector, or 13 sector compatible. This includes 
all DOS 3.3, DOS 3.2, Apple Pascal and Apple CP/M diskettes. Along with 
the ability to view the HEX and ASCII representation of the data, a 
disassembly of the data may be viewed. 

When this module is chosen, the standard display will be shown on the 
screen. This consists of a HEX display of the current sector to the left, 
and an ASCII display to the right. At the top of the screen, the current 
track and sector are displayed. 

There are a number of commands available, each invoked with a different 
key from the keyboard. As usual, the '?' key will show an abbreviated list 
of commands. This is the full list: 

I Moves the cursor up one line. 

J Moves the cursor one location to the left. 

K Moves the cursor one location to the right. 

h Moves the cursor down one line. 

Arrows... Perform the same functions as the keys above. 

+ Increments the sector number. If the sector number becomes 

greater than the number of sectors on the track, the track 
number is incremented by one, and the sector number is set to 
zero. 

" Decrements the current sector number. 

>..., Increments the current track number. 

< Decrements the current track number. 

/ Toggles the cursor between the HEX and ASCII displays. 

Space... Enters the Modify mode: 

HEX digits are accepted on the HEX side, space move to the next 
value. 

On the ASCII side, any characters may be typed 

The arrow keys will move the cursor around. 

The <RETURN> key accepts the current change and exits the 

modify mode. 
The <ESC> key aborts the modify mode. 

R„. Reads the current sector. If an error occurs, the ERROR message 

is displayed, but whatever partial data which may have been 
read will still be shown In the data displays. 
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W Writes the current sector, 

D Disassembles the data In the buffer from the cursor location. 

The forward and backward arrows page through the listing. 

The <RETURN> key exits the disassembly mode. 

T Prompts for a new track number, in HEX, 

S Prompts for a new sector number, In HEX. 

F Selects the Find mode. 

The find menu Is displayed and the following keys are active; 

1 .... Prompts for the starting track. 

2.... Prompts for the starting sector. 

3.... Prompts for the ending track, 

4... Prompts for the ending sector. 

5.,.. Switches between HEX and ASCil searching. 

6... Switches the search direction between ascending and 
descending. This specifies whether the search will 
progress downward through the sectors on each track, or 
upward through them. 

7.... Prompts for a string to search for, up to 32 characters. 

Pressing <RETURN> starts the search. 

Pressing 'Q* aborts the search. 
Displays the Options menu The following keys are active: 

F..,. Switches the format between 13 and 16 sector. 

1 Switches the interleave between the various types. 

K... Switches the High bit setting for ASCII characters entered 
in the modify mode. 

<RETURN> accepts the current selection, 
Q Quits the sector editor. 



The sector editor can be used to look at the data on a diskette, allowing it 
to be changed easily. This means that DOS commands or the Pascal system 
prompts may be changed at will on a diskette. 

If the sector editor is unable to read a particular sector, it usually means 
that there is something wrong with the diskette. It may be, however, that 
the protection scheme on a given disk prevents a sector from being read. 
To see what the raw data on a disk looks like, the track editor can always 
read any given track and display what its underlying format is. 
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Disk Speed Test 

Option ^5 starts the disk speed test utility. Using this utility, any disk 
drive can be set to the correct speed. Appendix C shows a diagram of the 
inside of an Apple disk drive, and the location of the speed control 
adjustment. 

WARNING: Disk speed adjustment requires that the disk drive be opened. 

If done improperly, this procedure can cause severe damage to 
the disk drive, and possibly the Apple. Excercise caution when 
performing this adjustment. 

To perform this function, the disk drive in question should be opened 
before the power is turned on. The drive will operate properly without 
its cover. Turn on the computer and select the disk speed test (^5). 

The Initial selection menu allows the slot and drive to be selected. Once 
this is complete, press <RETURN> to continue. 

Next, a warning message will appear, explaining that the disk used for this 
test will be erased. At this point, insert a scratch diskette into the drive 
to be tested, and press <RETURN>. 

The speed test ruler will appear, and a pointer with a number below it will 
begin to move back and forth below the ruler. The number is the current 
disk speed. Above the ruler are some statistics about the drive. These 
include the minimum and maximum speed so far, as well as the average 
speed so far. If the speed is very far off, the pointer will appear at the 
edge of the ruler, and a beep will sound at regular intervals. This 
indicates that the disk speed is out of tolerance. 

The disk speed may be adjusted slowly while the test is running, and the 
results should be immediately apparent The ideal speed for the disk drive 
is between and -10. Some variation of the disk speed is perfectly 
normal As long as the speed does not vary by more than 15 units between 
any two readings, the disk stability is fine. 
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Once the disk speed has been set, the computer should be turned off. Then 
the disk drive can be closed back up, and put back into normal service. It 
may be desirable to run this test periodically, since most disk drives have 
a tendency to speed up over time. This is normal and due simply to the 
aging of certain components on the circuit board in the disk drive. 

The figure supplied in the appendix pertains to standard Apple drives. If 
your disk drive does not look like the one shown, it still may be possible to 
adjust the speed. There will usually be a separate motor speed control 
board within the drive, normally at the back of the drive, Some drives 
required that the baseplate be removed to access the speed adjust control, 
since it pointed downward. Some drive have the speed control circuitry 
included into the rest of the electronics on a single board. !n this case 
there may be several controls which all look alike. The best option in this 
case is to ask the manufacturer, or your dealer. 



A note^n disk gpeed 

If the speed of a disk drive is too high, there will be less time to write 
data to it on each revolution of the disk. This can cause problems during a 
copy, and is the main cause of write errors. If write errors occur, try 
slowing down the disk drive by 5 or 10 units and re-running the copy. Many 
times this will solve the problem. The disk controller circuitry can handle 
a good deal of variation in speed, so this change will not affect the normal 
operation of the drive. 
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tonfiguration 

Option ^6 starts the configuration module. This allows the selection of 
display which will be used by the NAOOL program editor, and allows the 
default printer slot to be set. 

This option will display a screen which shows the current printer slot and 
editor configuration. Pressing the *P' key will change the printer slot If 
no printer is installed, set this to 0. This will disable the screen print 
function. 

Pressing 'E' will change the type of editor. When both of these options are 
at the desired values, press the <RETURN> key to make the changes 
permanent. 

The next time that the NADOL disk is booted, these changes will take 
effect. If the changes are desired immediately, simply boot the disk now. 
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Auto-Execute 

The Auto-execute section is provided for those programs which do not 
copy using the nibble-copy option. 

When this option is selected, the slot and drive for the source and 
destination may be selected in a manner similar to that used in the nibble 
copy section. Then the desired Auto-execute procedure Is selected from 
the menu with the arrow keys. 

Pressing <RETURN> will start the auto-execute procedure. During this 
operation, the program may stop and ask for the source and destination 
disks to be inserted at various times. When complete, a message will be 
displayed and the disks may be removed. Another Auto-Execute may be 
performed by pressing <RETURN> to select another, or pressing 'Q' will 
return the user to the main NAIII menu. 
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Throughout the evolution of disk protection on the Apple, there are several 
techniques which have become popular. This chapter will examine each of 
the major protection systems, explaining how they work, how to detect 
them, and finally, how to bypass them to obtain back-ups. 

In the process of designing the disk hardware for the Apple, particular 
attention was paid to making It software intensive, rather than hardware 
intensive. This means that a great deal of the burden for operating the 
disk drive Is placed on the controlling software, Instead of building larger 
and more complicated circuit boards to do the work. This aproach reduced 
the cost of the Apple disk hardware, and at the same time increased its 
reliability by cutting down the number of components on the board When 
It was introduced, the Apple disk drive was considered an engineering 
marvel due to its advanced design. 

Since control of the hardware is placed mainly on the software, there is a 
great deal of variation possible. This is what allows the huge variety of 
copy protection systems which are on the market today to exist Any time 
a particular phase of the operation of the disk drive can be performed in 
more than one way, there Is a good chance that It Is used in a disk 
protection scheme somewhere. 

First, we will examine the method used to store data on a diskette under a 
normal operating environment, DOS 3.3 in this case. The physical 
mechanics of the disk drive spin the diskette media Inside its protective 
jacket at 300 RPM. A read/write head moves across the disk, from the 
outer edge to the inner one, much like the motion of the needle on a 
phonograph. This creates 'rings', called tracks, around the diskette where 
data can be stored. 

Each track can hold up to a theoretical maximum of about 6000 bytes of 
information, and there are thirty five tracks per diskette. If we were to 
use each track to hold a single piece of information, they could be up to 
6000 bytes long, but if they were smaller, the extra room would be 
wasted. Obviously, this would make a diskette unusable for general data 
storage. 
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Figure 1 
Diskette Layout 

Instead eacfi track is divided up into sixteen equally sized chunks called 
sectors. Each of these sectors can hold two hundred fifty six bytes of 
Information. Figure one graphically illustrates how a diskette is 
physically laid out. This results in just over four thousand bytes per 
track. The reduction in storage is due In part to the extra Information 
used to mark where each sector starts and stops, but mostly to the 
restrictions on the exact data which may be stored in a given byte 
(described in detail below). For now, we can assume that about four 
thousand (4k) bytes are available per track. The minimum amount of space 
that must be used to hold a chunk of Information is only 256 bytes, which 
means that wastage is kept to a minimum. 

In order to be able to locate a particular sector on a given track, special 
Information Is placed in front of each sector so that the read/write head 
can spot It as the diskette spins by. Figure two shows a step by step 
blow-up of the different sections which make up the data on the diskette. 
The address field contains four pieces of Information about the sector 
which follows. Each one takes up two bytes In the address field due to a 
special type of encoding, described later. 
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Figure 2 
Bl0W"Up of Track Data 

The first piece of Information Is the disk volume number. This was 
originally designed to be used to make sure that the diskette in the drive 
was the proper one. In fact, DOS 3.1 required that the proper volume 
number be specified for all commands except catalog. The problem with 
this scheme Is that each disk must have a different number, but only two 
hundred fifty five volume numbers are available. This system Is no longer 
In use, but the volume number lingers on to retain compatibility. 

Next, is the track number on which this data resides. This may seem 
redundant, but It is used to verify that the read/write head is positioned 
over the proper track before reading or writing any data. 

Following this is the sector number. The software controlling the disk 
drive reads consecutive address fields until It finds the one containing the 
desired sector number. At this point, the specified operation is performed. 

The last is a code which is used as a checksum to verify that the previous 
three pieces of information were read properly. 
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The next topic to be considered is how the data actually appears on the 
diskette. The information on the diskette is actually just a series of 
magnetic field changes. Once the read/write head passes over them and 
the associated hardware does its job, the result is a series of I's and O's 
which are sent from the disk drive to the controller in the Apple. 

Three restrictions are placed on the actual bytes which may be processed 
by the disk hardware: 

1 . Each disk byte must have its high bit set. 

2. There may be no more than two consecutive zero bits in a byte. 

3. Only one pair of consecutive zero bits may appear in a given byte. 

Restriction 1 is used in conjunction with self-sync bytes to enable the 
disk drive to locate the start and end of the data on the drive. A self-sync 
byte is a byte which has all T bits (IFF) with extras O's after it on the 
drive. In the case of DOS 3.3, there are two extra zeros after each 
self-sync byte. Since each byte must have its high bit set, this enables us 
to locate the proper start/stop of each byte following at least four 
self-sync bytes. Figure three shows that no matter where in the bit 
stream the hardware begins to read, after four self-sync bytes have 
passed by, the head will be properly in sync with the data. 

1111111111 1111 11 11 il Q o il 11 11 11 11 Q liinnnl Q Q irrfTTTTil 
i ltiiiiiiQi o hiiiinil oQ inimnl Q o iininnl o o iininni 
1 1 ll 1111100111111111 11 Q inniiiil o Q inniiiil o Q iiniiinl 

I I Hi 1111 0011111 1111101 11 11111111 1111111111 1111111111 

I I I i iiiiiQOiiiliiiinoQllnnnni o Q hnnnil Q o 111111 nil 
1111 1 11 11 1 1 1111 1 1 11 ilFTTi 1 1 1 1 oi o lni 1 n 1 il o o 1111111111 
11111 1 11 1 1 n nin 1 1 d 1 ii iti 1 1 i 1 d diirrnrmi Q o mnnni 
111111 1 11 Q 11 n 1111 110 11 1111 11110 illnTi 1 1 1 oi oirn TnTil 

1 1 1 1 1 1 1 1 Q o il 1 1 11 1 1 1[ Q o il 1 1 1 1 1 1 ll Q o il 1 n 1 11 11 Q ln 1 1 1 1 1ll 

Function of the Self-Sync' Bytes 

Figure 3 
Function of SYNC bytes 
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Restriction 2 is caused by the hardware since a series of bits means no 
change in the magnetic field on the diskette, and after 2 bit times, the 
head begins to return Invalid data if no magnetic change occurs. 

Restriction 3 is added for DOS 3,3 to eliminate a few values and leave 64 
valid bytes, 64 possible bytes means that 6 bits of data can be written to 
the disk for each byte which goes out through the disk hardware. 

Since we are restricted to 6 bits per byte, an encoding system must be 
used to allow us to place 256 bytes of data, each containing 8 valid bits, 
onto the diskette. The way that this is done is to split each byte into two 
groups, one of six bits, the other with two. The six bit group can be sent 
out directly, while the two bit group is taken in three's (making six bits) 
and written out. The total number of bytes which actually written is 342. 
This is the reason that the actual storage capacity of a track Is lower than 
the theoretical capacity, as stated above. 

This gives us a rudimentary description of the working of the disk drive 
and its control software. The protection systems that are currently in use 
all make use of some method by which they can modify one or more of the 
basics discussed above. By doing this, they prevent the normal disk 
controlling software from reading the diskette and thus, prevent 
duplication. 

The various techniques currently in use will be discussed in the following 
chapters of this section. They will be presented roughly in the order in 
which they appeared on the market. This should give the reader some idea 
of the path that disk protection has taken over the last few years. 
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Modified Checksum 

The checksum Information found in the address field Is computed by using 
a particular combination of excluslve-or's among the previous data. As 
long as all disks use this convention, no problems arise. Software 
manufacturers found that by modifying how the checksum was created, 
they could prevent normal duplication programs from reading their 
software. This type of protection started to be used on a large number of 
programs since it was very easy to Implement, and very reliable. 

The one flaw to this system was that It was very easy to get around. All 
that was necessary was to disable the checksum verification, since It Is 
really only a precautionary measure. This allowed most normal 
duplication programs to read diskettes protected with this system. Most 
of the time the new diskette would contain all of the correct information, 
but with the checksums on the disk now generated by the standard method. 
This meant that the disk did not operate because the disk read/write code 
on the disk was set up for the modified checksum system. The solution to 
this was to also disable the checksum verification on the new disk. This 
resulted not only in a duplicate, but in a duplicate which was no longer 
protected! 

Today's sophisticated 'nibble copy' programs do not use the checksum 
information on a diskette at all, so they are not bothered in the least by 
this type of protection. However, any diskettes created by a nibble copy 
program will retain the same protection as the original, since the 
protection Is also reproduced. 
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Modified Address Mark 

The next type of protection to be used was modified address marks. This 
involved changing the norma! D5 AA 96 address mark to some other 
combination. This prevented normal backup programs from reading the 
disk since they were unable to locate the start of the sectors on the disk. 

To combat this, it was necessary to change the address marks In the 
backup program being used. The problem was that every disk must have at 
least one normal sector on it In order to boot. This meant that the backup 
program had to be able to read at least two different formats. Because of 
this, one could not simply change the backup programs built-in address 
mark and begin to make a backup. 

This problem was further complicated when manufacturers began to use 
several different address marks on a single diskette. At this time, it was 
no longer practical to use a normal backup program modified for different 
address marks. This meant that nibble copiers were needed to back-up 
this type of disk. 

Nibble copiers have used several different methods for dealing with 
diskettes which have several different address marks on them. One way is 
to actually specify the address mark, but that requires a change for each 
different address mark used Fortunately, most nibble copiers require only 
the address mark of one of the sectors on a given track. Many times this 
cut down on the number of different address marks used. 

Another method was to look for the GAPs (explained previously) which 
precede each sector. This technique did not work for long, however. 
Manufacturers found that there were actually many different bytes which 
could be used in the GAPs instead of the normal FFs. This caused problems 
for many nibble copiers, but it had even greater effects In some cases. 

Many times the bytes which were chosen as the replacement GAP bytes 
were not as stable from the controllers standpoint. This meant that the 
disk controller could not always find the correct data on the diskette 
properly. This resulted In higher failure rates on the diskettes, and the 
end result was that the customer was burdened with faulty software. 
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The latest method for determining the address marks used on a particular 
diskette Is via the GAPs. This time however, it is not the value of the 
bytes within the 6APs which is used. The nibble copier looks for a section 
of SYNC bytes, regardless of their value, and uses this to determine where 
the sectors begin. This method can 'see through' many protection systems 
and has a very high reliability. Another bonus Is that it can perform this 
analysis on most diskettes, making the backup process almost completely 
automated. 

The main disadvantage to both the modified checksum and the modified 
address mark systems Is compatibility. Data written by either one of 
these systems cannot be read back by a normal system. This means that a 
word processor or spreadsheet using this type of protection could read 
files which It created, but not those created by any other system. Usually 
this was sufficient for games, but business programs could not operate In 
this fashion. This made these systems less desirable, and hence they are 
used less and less today. 
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Manufacturers needed some type of system which they could trust, yet one 
which would allow perfectly normal data to be placed on a diskette. 
Synchronization provided this. 

The layout of a diskette shown In figure one Is actually an Ideal condition. 
In real life, the sectors on each track do not line up with those on the next 
track In an orderly fashion. However, whatever the orientation of the 
tracks is, it will never change. Manufacturers used this fact to create a 
protection system. 

When the software was created, the orientation between two tracks, or 
the spin angle (figure 2) was checked and recorded on the disk. Later 
when the user booted the disk, this angle was checked again. If It had 
varied, it meant that the data was no longer on the original disk and the 
software would not operate. 



This system worked very well because it allowed any data to be placed on 
the disk, and it did not use any odd or unreliable methods of storing 
Information on the diskette. It also was beyond the power of all of the 
existing nibble copy programs when it was first used. That did not last 
long. 




Figure 4 
Spin Angle 
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One of the telltale signs of this type of protection Is a very fast seeking 
sound from the disk drive. This Is created by the stepper motor as It moves 
the read/write head back and forth between the two tracks for which the 
spin angle Is being checked. 

In order to duplicate this protection system, It Is necessary to correctly 
reproduce the spin angle for each track on the destination disk. This Is 
done by first copying track zero and finding a convenient unique reference 
mark which can be reliably located. Before reading each track on the 
original, the reference mark Is found. At this point, the head seeks 
Immediately to the track being duplicated, and then the number of bytes 
which pass below the head before the first sector Is encountered Is 
recorded. The reference mark Is then located on the destination drive. The 
head then moves to the destination track, and writing Is suspended until 
the same number of bytes recorded during the read have passed under the 
head. This preserves the spin angle and properly duplicates this type of 
protection. 

This system Is still used today, since it Is reliable and requires a nibble 
copier with advanced features In order to make a backup of it. 
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Nibble Counting 

Every disk drive spins at a slightly different speed. When reading data, 
this Is taken Into account by the disk controller, so there Is no perceivable 
effect to the user. On writing, however, the speed of the diskette affects 
the number of bytes which will fit around a particular track. The variation 
In this number will be small, but there will be a variation, since no 
electric motor turns at a perfectly constant speed. 

The nibble counting protection system uses this fact When a particular 
track Is written out, the actual number of bytes which exist on the track 
is counted and recorded. Later, when the program boots, this count Is 
checked. If the disk has been duplicated, the speed of the destination drive 
win be different than that of the disk which originally created the master. 
This means that there will be a few more or less GAP bytes on the disk. 
This small difference Is enough for the nibble counting protection system 
to determine that the disk has been duplicated. 

This system is very difficult for a nibble copier to duplicate. There are 
basically two methods which can be used. The first Is the manual method. 
In this system the nibble copy program begins to write out the data over 
and over. Between each write, it counts the number of bytes which 
actually fit on the track. If the number is not correct, It tries again. 
During this time the user Is told whether too many or too few bytes were 
recorded. Using this Information, the user manually adjusts the speed of 
the disk drive. This system works very well, but It requires that the disk 
drive be opened to perform It properly, which can be rather cumbersome. 

The second method can be done automatically by a program, but It Is not as 
reliable. In this method, the non-essential data on the track Is converted 
to SYNC bytes, a few at a time. The bytes which are made SYNC become 
25% longer, and take up more room. This allows the track to be expanded 
under software control. The main drawback Is that not all bytes may be 
turned into SYNC bytes reliably, which can cause some data problems. In 
most cases, however, this technique Is quite adequate. 

Sometimes nibble counting is combined with synchronization. This can be 
duplicated, but It can take a very long time, since these are the two most 
time consuming protection systems to back-up. 
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EplRl TrqcKs 

One assumption which Is normally made about data on a diskette Is that 
Information may not lie on consecutive half-tracks. This is because the 
read/write head's path Is wider than one half track, so when one of the 
two half-tracks were written, It would obliterate the other. There Is a 
variation on this theme, however, which has been used in a very effective 
protection system. 

If a section of data only exists for half of a revolution of the diskette, 
then the other half could technically be used for data on a half track, 
without the conflict described above. This is exactly what is done in 
spiral tracking. Figure four shows this system graphically. 



The gray areas show where the data resides. Even though there is data on 
all of the half tracks, this system provides that no data will be adjacent 
to another half track containing data. The gaps of white between the 
sections of data are provided to allow the read/ write head time to move 
from one track to another. This system is fairly reliable, but requires that 
the user's drive be able to step to the half tracks. This Is not a problem 
for Apple drives, but some outside vendors have marketed disk drives 
which can only step to the normal tracks. These drives will not operate 
correctly with this type of protection. 




Figure A 
Spiral Tracks 
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Many times, this system Is mixed with a modified address mark system. It 
may even Incorporate a system wherein the address mark Is different for 
each and every section of data on the disk. Usually, the end of a particular 
section of data will specify the address mark for the following section of 
data This type of protection can have many permutations added to It, and 
Is very difficult to back-up without some form of Intelligence In the 
backup program (like that found In NADOL). 

The procedure for backing up a disk with this type of protection Is very 
similar to that used for synchronized protection. The difference Is that 
Instead of writing full tracks out, only small portions of tracks are 
written. 

First track is copied, and a reference mark Is located. Then the tracks 
starting (usually) with 1 are duplicated, preserving the spin angle. As 
each track Is written, only the actual section of the track which contains 
data Is written. This keeps the data from bleeding over into the tracks 
which have previously been backed up. 

Sometimes only a section of a particular disk will be protected In this 
fashion. Since this system wastes so much space, only small programs 
may be protected entirely In this fashion. Usually there will be the sound 
of very rapid, continuous read/write head movement during the time when 
this system Is being used. The user may listen for this while a diskette Is 
booting to determine If this type of protection Is In use. 
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One type of protection which was very effective, but Is now basically 
obsolete, is hidden sync bytes. This system Involved placing one or more 
sync bytes (those which are normally only used to lock the controller) In 
strategic positions. When this system was first Introduced, there was no 
easy way to detect the presence of sync bytes. This meant that a sync 
byte could be present but there was almost no way to locate It. The only 
effective way was to actually take apart the code which identified the 
SYNC byte on the disk. 

Today, however, things have changed a bit. NADOL can distinguish between 
sync and non-sync bytes as It reads the disk. This means that all sync 
bytes will be preserved in their proper locations, normally without any 
user Intervention whatsoever. This has made this type of protection much 
less popular today. However, it is still used on some disks. 
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The following table is a list of all of the error messages and their 
associated numbers. The numbers are those that will be returned in the 
variable 'ERROR'. If ERROR is set to one of these numbers, the appropriate 
error message will be displayed as if the error had really occurred. 

1 = SYNTAX ERROR 

Occurs when NADOL cannot understand a command. Usually the 
result of spelling errors. 

2 = ( ) MISMATCH ERROR 

The open and close parentheses in an expression do not 
match. 

3= PARAMETER COUNT ERROR 

When calling a built-in procedure or function, an Incorrect number 
of parameters was entered. 

4= STACK OVERFLOW ERROR 

The internal stack cannot hold any more information. Usually 
caused by one of the following: 

Nesting IF-ELSE-ENOIF or UIHiLE-ENDIUHILE statements 
too deeply. 

Calling user defined procedure or functions from within 

each other to more than 11 levels. 
Nesting parentheses to more than 16 levels. 

5 = DUPLICATE VARIABLE ERROR 

Trying to DEFINE a variable name twice, or trying to name a 
procedure and a variable by the same name will cause this 
error. 

6 = DUPLICATE PROC/FUNC ERROR 

Trying to define a PROCEDURE or FUNCTION name twice, or 
defining one with the name of a variable will cause this error. 

7 = SYMBOL TABLE FULL ERROR 

There Is Insufficient room to define any more variables, 
procedures, functions or labels. 
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8 = UNDEFINED SYMBOL ERROR 

Reference was made to a variable or procedure which does not 
exist Spelling errors are the main cause of this error message, 

9 = UNEXPECTED END OF FILE ERROR 

If the closing statement for a blocl< (ENDIF, ENOPROC, 
ENOFUNC, ENDtUHILE) is left out, NADOL will run out of text 
trying to find it. 

1 1 = VALUE RANGE ERROR 

Some likely causes: 

Assigning a value >255 to a BYTE variable. 
Hires or lores coordinates out of range. 
eOTOIiV parameters out of range. 

13 = NESTED LABEL ERROR 

Labels may not be defined within IF-ElSE-ENDIf or 
tUHILE-ENDtUHILE blocks. 

14 = SUBSCRIPT ERROR 

A variable's subscript could not be understood. Possibly 
missing the T after the subscript 

15 = NO BEGIN ERROR 

An ENDPROC or ENDFUNC statement was encountered without 
the corresponding PROCEDURE or FUNCTION statement. 

1 6 = WRONG TYPE OF PARAMETER ERROR 

A constant was specified In place of a variable name for a 
procedure which requires a variable name for one of its 
parameters. 

17 = RE AD ONLY ERROR 

Some of the predefined variables may be referenced but may 
not be modified. 

19 = IMMEDIATE ONLY ERROR 

The LIST, EDIT, and RUN commands may not be executed from 
within a program. 
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20 - NO LANGUAGE CARD ERROR 

An attempt was made to perform a data transfer to/from a 
language card when none was present. 

21 = NO AUXILIARY MEMORY ERROR 

An attempt was made to perform a data transfer to/from 
auxiliary memory when none was present 

22 = IF/ENDIF MISMATCH ERROR 

The IF-ENDIF blocks are out of balance in a program. 

23 - WHILE/ENDWHILE MISMATCH ERROR 

The WHILE-ENDWHiLE blocks are out of balance in a program. 

24 - PROGRAM TO LARGE ERROR 

An attempt was made to load a file which is to large for the 
program area. This Is normally caused by attempting to load a 
non-program file without the AT option. 

25- 1/0 ERROR 

A disk error occurred while trying to access the disk. 
Normally caused by an open disk drive door or a bad diskette. 

26 - DISK FULL ERROR 

All Of the available space on a data diskette has been used and 
no additional data can be stored on it 

28 = FILE NOT FOUND ERROR 

The specified file name could not be located on the current 
work disk. 

29 = NO APPLESOFT ERROR 

Hires graphics were attempted without Applesoft BASIC In 
ROM. 



i^p^fmuSi^ A: Error flessa^ 



Appendix B 



Decimal / Hexadecimal / ASCII conversion chart 



NADOL Programmer's Reference Manual B. 1 





nfcA 


ACPI 1 


UhL 


ucv 


AoLI 1 


UcL 




AdLI 1 










1 4i 






1 B& 




V 


1 


1 




1 44 






1 87 


57 


V 


2 


2 


SIX 


i 45 






1 m 


58 


H 


i 




ETX 


1 46 






\ m 


59 


Y 


4 


4 


EOT 


1 47 




/ 


1 w 




Z 


S 


5 


m 


1 48 


so 





I 9t 




1 




€ 




1 49 


31 


1 


! 92 




\ 


? 






! ^ 


S2 


2 


1 SB 




j 


a 


8 




1 SI 


S3 




1 94 






9 




HT 


1 52 




4 


! 95 






10 




ir 


f S3 




^ 


! % 


CO 




11 


i 


w 


! M 




6 


I 97 


61 




12 


C 




I K 




7 


1 m 


62 




IS 


D 




1 ^ 


m 


8 


1 99 


S3 





14 


t 


m 


1 ST 




f 


1 tTO 


S4 




15 


r 


SI 


1 m 


m 




1 toi 




# 


IS 


1© 


mi 


1 TO 


m 




1 102 


€S 


f 




11 




1 ^ 




< 


1 m 


67 




18 


12 




1 SI 






I 104 


€8 


h 


If 


13 


DCS 


i 62 




> 


1 105 


69 


1 




H 




1 U 






1 1^ 




i 


21 


15 




1 S4 


40 


# 


1 107 


m 


k 


22 


16 


SVl 


1 65 


41 




1 im 




1 


23 


t? 


ETB 


1 m 


42 


B 


1 109 




m 


24 


IS 




1 


4S 


C 


I no 




n 




19 


EH 


{ m 


44 


D 


1 111 


^ 











1 69 


45 


E 


1 112 


70 


P 


21 


IS 




1 TO 


4S 


F 


1 lis 


71 




as 


1C 


FS 


! 1% 


47 


G 


i 114 


72 


r 
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4B 
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7^ 


s 




ti 
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49 


I 


1 116 


74 


t 


it 


ir 


m 
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40 


K 
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21 


1 
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4C 


L 
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77 
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m 


22 
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40 
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m 
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4E 


n 
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79 
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24 


% 
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^ 


% 
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p 
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7B 


{ 
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\ at 
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Q 
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7C 


1 


m 


21 
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52 


R 
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7D 


} 
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m 


C 
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5S 


S 
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) 
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T 
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42 
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DEC HEX ASCII DEC HEX ASCII DEC HEX ASCII 



128 




PHI 


129 


81 




ISO 


82 


STX 


TSi 


83 


ETX 


1S2 


84 


EOT 


133 


€^ 


Ef^ 




86 


ACK 


13S 


87 




136 


^ 




137 


89 


HT 


13S 


dA 


IF 


139 




VT 


140 


^ 


FF 


141 




CR 


142 


8£ 


SO 


143 




SI 


144 


^ 


DIE 


145 


91 


DCI 


146 


92 


DC2 


147 


93 


DCS 


148 


94 


DC4 


149 


^ 


NAK 


150 


96 


8YN 


151 


97 


ETB 


152 


9& 


CAN 


153 


99 


EM 


154 


9A 


Si^ 


155 


98 


ESC 


156 


9C 


FS 


157 


9D 


OS 


158 


9£ 


RS 


159 




US 
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AO 
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A1 


t 


162 
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163 


A3 




164 


A4 


$ 
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A5 


% 


166 


A6 


& 


167 


A7 




168 


^ 


( 


169 


A9 


) 


170 


AA 


* 



171 A8 + 

172 AC 

173 AD - 

174 A£ 

175 AF / 

176 ^ 
17? B1 1 

178 B2 2 

179 83 3 
W 84 4 

181 m 5 

182 ^ 6 

183 87 7 

184 88 8 
1^ 89 9 
1^ BA : 
18? m ; 
1^ m < 

m m ^ 

190 m > 

191 BF 7 

192 CO # 

m CI A 

194 C2 B 

195 C3 C 
1% C4 D 
19? C5 £ 

198 C6 F 

199 C7 G 

200 C8 H 

201 C9 I 

202 CA J 

ce K 

^ CC L 

2m a> M 

20S Oi H 

207 CF 

208 DO P 

209 D1 Q 

210 D2 R 

211 D3 S 

212 D4 T 

213 U 



1 214 


D6 


V 


1 215 


D7 


V 


t 04 £ 
{ dt^ 


D8 








T 
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DA 


£ 


\ 219 


W 
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I 


1 220 


DC 


\ 


1 
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DD 
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J 
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D€ 




i 223 


^ 




1 224 


EO 


r 
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1 226 


E2 


b 


1 227 


E3 


c 


1 22cF 


E4 


d 


1 229 


E5 




i 230 


E6 


f 


1 231 


E7 




1 232 


E8 


h 


1 £00 


E9 




1 234 


EA 


j 


i 0*31231 

1 


EE 


k 


1 2oo 


EC 


1 


1 237 


ED 


m 


1 238 


EE 


n 


1 239 


£F 





1 240 


FO 


P 


1 241 


F1 




! 242 


F2 


r 


1 243 


F3 


s 


1 244 


F4 


t 


1 245 


F5 


u 


1 246 


F6 


V 


1 247 


F7 




1 248 


F8 


X 


1 249 


F9 


y 


1 250 


FA 


£ 


1 251 


F8 


{ 


1 252 


FC 


I 


1 253 


FD 


} 


1 254 


FE 




I 255 


FF 
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Appendix C 



Adjusting Disk Orwe Speed 



Disk Speed Adjustment 

Top View 




Side View 




speed Control 
Adjustment 



Use the disk speed test option In NAIII. While watching the 
Indicator on the screen, slowly change the speed adjustment. 
When the desired speed Is reached, let the drive stabilize 
for a moment to verify the correct speed, then the 
test Is complete. 
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NADOL Memory Map 



Memory Ma p 



Monitor 



3*$FFFF 
S*$F800 
;*$F7FF 



Applesoft 



i ♦$D000 
$*$CFFF 

5*$c6oo 

;*$BFFF 



System I/O 



NADOL Program code 



; ♦Seooo 

$*$7FFF 



^♦$4000 
$*$3FFF 



Read Buffer 



Write Buffer 



User Program 



This grows downward and 
the variables grow below 



Data for Variables 



This grows downward 
into the free space 



$*$2700 



Free Space 



Symbol Table 



This grows upward 
into the free space 



5 ^$0000 
^♦$0BFF 

U$0800 
U$07FF 

U$0000 



NADOL Workspace 



Zero Page, Stack and Screen 



i.:Z 



ii 
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Quick Reference Guide 
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IF expression 

{ statements executed on true ) 
(ELSE) 

{ statements executed on false ) 
BNDIF 

IN*^ expression 
INIT name 

INPUT(<4cname»,max,«count») 

INVERSE 

LABEL name 

LCMOVE(<!:mem«address>,lc«address,iength,direction) 

variable- LENGTH(name) 

LIST 

LOAD filename { AT «address» ) 
LORES 

variable- LSCRN(x,y) 

MAKE(«address»,length,start,num«xeroes,bit» length) 

MASK(«start»,length,or_-value,and„value) 

NEW 

variable- NOT(expression) 
NORMAL 

PACK «name» WITH "text" 
variable- PDL(expression) 
PLOT{x.y) 
PR* expression 

PRBL0CK(«start>,length,label,digs^ormat,numl,num2,space) 
PRINT ( expression ) {J {;) (expression) (,) {;}.„ 
PRINTBYTE (expression) (.) {;) (expression) (.) {;)... 
PRINTHEX (expression) (,) {;) (expression) (J (;)... 
PROCEDURE name 
RECAL(slot,drive) 
RENAME oldname,newname 

RBLOCK(<*:address»,«blocic»,«count»,slot,drive,«error») 
RESULT'" expression 

RSECT(«address»,«track>,half,«sector>,«count>,slot,drive,«error> 

RTRACK:(«address»,track,half,slot,drive) 

RUN 

SAVE filename (AT «address>,length) 
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E.l 



Quick Reference to Procedures and Functions 

The following is a condensed list of the proper syntax for all of the 
built-in statements. It is provided as a quick-reference quide, section 8 
should be consulted for full details on all of the statements, 

AUXMOVE{<KappIe«addr>,aux«addr,length,direction) 
BEEP(tone,time) 

CALL(<*:addre8s»,«aa:umulator>,«x»register»,«y«register»,<KStatus>) 

CATALOG 

aEAR 

aREOL 

aREOP 

COLOR« expression 

CONVERT(«source>,«de8tination»,type,8iEe,«counti>,<KCount2>) 

COPY(<!:source»,<t:destination>,length) 

{ DEFINE ) type {[n]) name {,name) .... 

DELAYCexpression) 

DELETE filename 

DISASM(4:start>,labeI,lines,«offset») 

DISPLAY(<i;8tart>4ength) 

EDIT 

FILL(«start»,tength,value) 

FIND(«8tart>4engthl,«pattern>,length2,7«flag,wild«flag,«off8et>) 
FLASH 

F0RMAT(fir8t,last,voiume,«interieave>,nsect,slot,drive,error) 

variable- FREE 

FUNCTION name 

GOTO labelname 

GOTOXY(x.y) 

HCOLOR- expression 

HBXPACK «name> WITH "text" { . checksum ) 
HIRES 

HLINE(xl,yl,x2) 
HOME 

HPLOT{x,y) {TOxyU 
variable- HSCRN(x,y) 
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SETFORMAT(type,<s;address«header»,«data®header»,«mtefleave») 

variable- SIZEOF(filename) 

STOP 

TEXT 

VLINB(xl,yl,y2) 

WBL0CK(«addre8S>,«bIock»,«count»,slot,drive,«efror») 
WHILE expression 



{executable statements) 
ENDWHILE 

WORKDRIVE slot,drive 

WSECT(«address»,«track»,half.«sector»,«count»,slot,drive,«error») 
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